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PREFACE eens 


This manual describes the implementation of FORTRAN~78 with the TAXO operating system. 
It includes specifications for execution of FORTRAN-78 under TAXO, the calling sequences 
between FORTRAN and assembly language programs, and the structure and contents of the 
FORTRAN run-time package. Also included are FORTRAN logical and physicah?etord charac- 
teristics, the |/O operation validation table, and a description of the —- ba mene 
file handler. peainncsoy a 

The FORTRAN discussion contained in this manual is divided into the 1 Gtownihieencris and 
appendixes. 


a Fe eee ee ae nee 


Section 


1 Introduction - Contains an overview of the operating apetern bn seta phases 
of FORTRAN usage. o9 9 sigs By f+: 
2 FORTRAN-78 Source Program Preparation and Execution - ‘Contains insttuttihs - 
for FORTRAN source program preparation and execution on a TAXO systern: 4% 


3 FORTRAN-78 Run-time Package Description - Describes the structure and. con— - 
tens of the FORTRAN run-time package. a a os 
7S EBVOrBS yorearaA 5 -; 
4 Calling Sequences Between FORTRAN-78 and Assembly Language Programs’= ‘ -: 
Describes the calling sequences between FORTRAN and arp. ‘language <n arin 


aM A> 


Appendix ne go ery ee 


A FORTRAN-78 Compiler Output and Run-Time Error Messages ~ Describes the com- 
piler listing elements including the errors and warnings output to the compiler listing. 


B Logical and Physical Record Characteristics - Describes FORTRAN logical and phys- 
ical record characteristics, 


C Valid FORTRAN-78 1/0 Operations - Contains the table which is used to validate I/O 
operations. 


D Multiple Key Indexed File Handler - Describes the calls to the multiple key indexed 
file handler. 
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PREFACE 


The following documents contain information related to the material discussed in this 
manual: 


SAS 2 
FORFRAN-78 Reference Manual 
FA1630/TAX@/Operating Manual Il 
TA630/TAXO/Link Editor 
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1 INTRUDUCTION 


1.1 General 


FORTRAN-78 source programs are developed for compilation and execution on a 

TAXO system. The TAXO system provides the means to prepare a FORTRAN-~78 source 
program for execution. It also provides the means to alter FORTRAN processing through 
the FORTRAN-78 run-time library and the ability to communicate between FORTRAN ©: 


and assembly language programs. 


1.2 FORTRAN-78 Source Program Preparation and Execution 


Once FORTRAN source programs have been developed, several steps must be taken 
to prepare the source program for execution. These are: 


° Compilation - the source program ist converted to object code, the syntax 
of the FORTRAN statements is checked, and errors are reported. 


° Link Editing - references between object program modules are resolved and 
the modules are linked with the run-time library to form a single linked output. 


° Program Installation or Loading - the linked object module is placed ina 
program file prior to execution. 


° Establishing Input/Output Correspondence - the input/output unit numbers 
assigned in the FORTRAN program are associated with the appropriate devices 
and files on the TAXO system. 


Once these steps have been successfully completed, the program is ready for execution. 


1.3 FORTRAN-78 Run-time Library 


The FORTRAN-78 run-time library is a library of subprogram modules which are called 

by the FORTRAN program as needed to aid in the execution of the program. These modules 
include the input/output routines which control |/O buffers, physical record blocks, error 
logging, and program termination. The FORTRAN programmer can modify certain of these 
run-time modules to suit his application. 
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1.4 FORTRAN-78 Assembly Language Calling Sequences 


FORTRAN-78 provides the FORTRAN programmer within the ability to call assembly 
language subprograms from FORTRAN programs. Section 4 lists the assembly language 
code generated by subroutine calls and function references and the receiving code 
needed for entry into these subprograms. This code is provided to aid the programmer 

in generating his own assembly language subprograms. FORTRAN-78 also provides 
macros that enable the FORTRAN programmer to write assembly language programs that 
may be called by a FORTRAN program or that call a FORTRAN subprogram, 
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° When a labeled statement is executed, the system prints a trace message in one of 


the following forms: 
LINE line-=number IN name 
LINE line-=number 


In either case, line-number is the number of the line in the output list that contains 
the labeled statement. The parameter name indicates the name of the program 
module containing the labeled statement. The parameter is omitted if the previous 
trace contained a statement from the same program module. 


Free Format (F), 


Selecting option F specifies to the compiler that the input program is not in the standard 
format of columns 1 through 5, column 6, and columns 7 through 80, Instead, the com- 
piler scans the input program according to the following rules: 

° If the first nonblank character (possibly following a D during a conditional compilation) 
is an ampersand (&) the line is a continuation line. 


° If the first nonblank character is a digit (O through 9), the line is a statement. 
° If the first character is a C, the line is a comment. 


° If the first character is a D, the line is handled by the rules of conditional compilation. 


Object Code Listing (O). 


Selecting option O specifies to the compiler that it should print a listing of the generated 
object code on the device or file indicated as the LISTING ACCESS NAME: in the compiler 
prompting message. Figure 2-1 illustrates the format of the output listing. This option prints 
a large number of machine instructions for each FORTRAN statement. This option should 
not be selected until the FORTRAN source code is debugged. 


Variable Cross Referende List (X). 


Selecting option X specifies that the compiler should print a listing of the program variables 
on the device or file indicated as the LISTING ACCESS NAME: in the compiler prompting 
message. Figure 2-2 illustrates the format of the output listing. Selecting this option requires 
additional memory space to generate the list. Therefore, programs that overflow memory 
space when this option is selected may be successfully executed by deleting X from the 
OPTIONS: list. 


Assembly Source Code (S). 


Selecting option S specifies that the compiler should generate assembly language source 
instead of object code. The source is placed on the device or file indicated as the OBJECT 
ACCESS NAME: in the compiler prompting message. The source may then be used as input 
to the macro assembler to generate an object module. 


NOTE: 


Care should be taken in modifying the source produced by the 
compiler since optimization takes place and arbitrary changes 
to register contents may produce undesirable side effects. 
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PROGRAM LINE NUMBER 
FORTRAN STATEMENT 
FORTRAN STATEMENT 
LOCATION 

OBJECT CODE 

CODE Type * 


PSEUDO ASSEMBLY 
LANGUAGE EQUIVALENTS 


=| 


0033 40 4x = 0.0 


00A8 #40 EQU og 
OOA2 1602 A UNE $43 
QOA8 C820 A MOV @R#1,@X 
QOAA 0000 A 
QOAC  OOFE D 
QOAE C820 A MOV  @R#1+2,@X+2 
0080 000d A 
00B2 0100 D 
0034 60 Y =Y+1.0 | 
0084 #60 equ $ - 
00B4 0420 A BLWP @F$RITP 
00B6 OSE R 
0088  ODAO A LR ss @R#3 
0084 0000 A 
OoBC OC60 A AR oY 
QOBE  O10A D 
QOCO ODEO A STR @Y 
00c2 010A D 
0035 IF (I) 70,70,80 
ooc4 =: OCDE A XIT 
00cé6 ~=6-: COAD-—sOA MOV @1,2 
ooc8 = OOFC:—«OD 
OOCA 15FF A J6T #80 
oocc «13FF OA JEQ #70 
OOCE 11FF A JLT #70 
0036 2 CONTINUE 
o0D0 #2 EQU $ 


#% CODE TYPE INDICATES HOW THE OBJECT CODE COLUMN IS REPRESENTED, 
A = ABSOLUTE C 


D = DATA SEGMENT (0 SEG Tiv WE, 
R = PROGRAM SEGMENT ( SE TRE LATIVE 


Figure 2-1, Object Option Format Sample 
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2.2.2.3 Linking For Stand-alone Execution. 


The special stand-alone FORTRAN directory is used to produce FORTRAN programs that 
can execute as stand-alone programs. The general form for the link edit control file is: 


NOSYMT 

LIBRARY .FORT78.SALOBJ 
LIBRARY .FORT78.STLOBJ 
PHASE 0, FORT 

INCLUDE <name> 

END 


The special stand-alone directory has the pathname .FORT78.SALOBJ and the standard 
directory has the pathname .FORT78.STLOBJ. The LIBRARY commands must be in this 
order. 


The functions provided in the special stand-alone directory are program entry and setup, 

program termination, and message logging. All other functions required by the FORTRAN w& 
program will be supplied from the standard directory. This standard directory includes only 

functions that do not require operating system support. If the user has referenced any 

function that requires operating system support, such as I/O functions, the link edit list 

file shows unresolved references. See Table 3-1 for operating system dependent functions. 


If the user wishes to use the FORTRAN I/O statements, he must provide his own support 
routines. The interface between the compiler generated code and the I/O support routines 
and additional information about stand-alone execution is documented in Sections 3 and 4. 


2.2.2.4 Replacing Standard Modules With User-Written Modules, 


Certain characteristics of FORTRAN programs such as the maximum number of unit numbers 
that can be used can be altered by the user by linking in modules he has written instead of 
the standard directory modules. Section 3 describes those modules a user may want to re- 
place. The general form for the link edit.control file for replacing standard modules is as 
follows: 


NOSYMT 
LIBRARY <user directory pathname> we 


LIBRARY <other directories> 


PHASE 0, FORT 
INCLUDE <name> 
END 
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The LIBRARY commands must be in the order shown. The user directory pathname 
parameter is the pathname of the directory that contains the user-written modules, 
Other LIBRARY commands must be supplied for the standard directories and any 
special directory of appropriate. 


It is preferable to allow the link editor to include user modules with a library search 
rather than to include them explicitly with an INCLUDE command, In certain situations, 
using the INCLUDE command could cause the user-supplied module as well as the 
standard module to be included in the link. 


2.2.2.5 Link Edit Installation of FORTRAN Program, 


The FORTRAN program may be installed during link edit by changing the control file. 
The following is an example: 


FORMAT IMAGE, REPLACE 

NOSYMT 

LIBRARY .FORT78.OSLOBJ 
LIBRARY .FORT78.STLOBJ 
PHASE O, FORT 

INCLUDE .TEST 

END 


The first statement selects image mode and instructs the link editor to install the program. 


It installs both procedures and tasks. The rest of the control file is the same as for any other 
link. 


The linked output is put in a program file. Task ID assigned appears on the list file. Refer 
to the TAXO Link Editor for more information. 


2.2.2.6 Executing the Link Editor. 


Once the control file is complete, activate the link editor (SDSLNK) by selecting XLE. 
The link editor displays the following prompting messages: 


CONTROL ACCESS NAME; 
LINKED OUTPUT ACCESS NAME: 
LISTING ACCESS NAME: 

PRINT MDTH: 80 


To activate the link editor, these parameters must be completed as described in the 
following. 


° The control access name is assigned to the control file created at the start of 


the program link edit procedure. 
The linked output access name receives the output of the link edit procedure. 


The listing access name is the device or file that receives the load map listing 


of the link edit. The link editor creates the linked output file and/or listing file 
if they do not exist. 


The print width parameter specifies the number of charcters (bytes) per line in 
the output listing. The default value is 80. 
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Pressing the RETURN key when the cursor is in the print width field activates the link 
editor. When the link edit is complete, SDSLNK displays the terminal local file which 
indicates the completion of the link edit and lists the warnings and errors. 


2.2.3 Task Installation. 


TAXO application programs must be installed either by the link editor or by use of the 
TAXO System Command Interpreter install commands before execution is possible. The 
installation procedure is slightly different depending on whether the program was linked 
as a single task, or a task and a shared procedure. The following paragraphs apply to 
both synonym assigned LUNO linkage and global assigned LUNO linkage. 


2.2.3.1 Install Single Task. 
Enter the IT command causing the following prompt messages to be displayed: 


INSTALL TASK 
PROGRAM FILE OR LUNO;: 


TASK NAME: 
TASK ID: 0 

OBJECT PATHNAME OR LUNO: 
PRIORITY: 4 


DEFAULT TASK FLAGES?: YES 
ATTACHED PROCEDURES?: NO 


If the answer to DEFAULT TASK FLAGS? is NO, the following is displayed: 


PRIVILEGED?: NO 

SYSTEM TASK?: NO 

MEMORY RESIDENT?: NO 
REPLICATABLE?: YES 

DELETE PROTECTED?: NO 

EXECUTE PROTECTED?: NO 
OVERFLOW CHECKING?: NO 
WRITABLE CONTROL STCRAGE?; NO 


The program file or LUNO parameter designates the program file in which to install the task. 
The task is the name given to the task by the user. The task ID is the desired task ID number 
that is assigned to the task. If the input is zero, a task ID is supplied by the system. The ob- 
ject pathname or LUNO is the pathname assigned to the linked output file during link edit or 
the LUNO to which this linked object has previously been assigned. The priority may be 1, 2, 
3, or 4. For replicatable tasks, the reply to the prompt DEFAULT TASK FLAGS? is YES, and the 
reply to the prompt ATTACHED PROCEDURES? is NO. For nunreplicatable tasks, the reply to 
the prompt DEFAULT TASK FLAGS? is NO, the reply to the prompt REPLICATABLE? is NO, 
and, if the task is to be installed on the system program file, the reply to the prompt 

SYSTEM TASK? is YES. 
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2.2.3.2 Install Task with Shared Procedure. 


Enter the IP command causing the following prompts to be displayed: 


INSTALL PROCEDURE 
PROGRAM FILE OR LUNO: 
PROCEDURE NAME: 
PROCEDURE ID: 
OBJECT PATHNAME OR LUNO: 
MEMORY RESIDENT?: NO 
DELETE PROTECT?: NO 
EXECUTE PROTECT?: NO 
WRITE PROTECT?: NO 
WRITABLE CONTROL STORAGE?: NO 


The program file or LUNO parameter designates the program file in which to install the 
procedure. The procedure name is the name given to the procedure by the user. The 
procedure ID is the desired procedure ID number that is assigned to the procedure. The 
object pathname or LUNO is the pathname assigned to the linked output file during the 
link edit without the DUMMY command, or the LUNO to which the linked output file has 
previously been assigned. Files specified by pathname are rewound when opened, but 
files specified by LUNO are not rewound when opened. Therefore, if the same object 
file contains procedures and tasks, the LUNO must be used for the IP and IT commands 
to install all the object correctly. The default responses to the remaining five prompts 
are NO. 


For each task which shares the procedure, enter the IT command and follow the para- 
meter input in paragraph 2.2.3.1 except for the last parameter. To the question 
ATTACHED PROCEDURES respond YES. This response produces the additional prompt 
messages: 


1st PROCEDURE ID: 
P1 FROM TASKS PROGRAM FILE?: YES 
2nd PROCEDURE ID: 0 
P2 FROM TASKS PROGRAM FILE?: YES 


In response to these prompts enter the appopriate procedure ID and eihter a YES to 
indicate that the procedure is in the same program file, or a NO to inidcate that it is not. 
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2.2.4 1/O Unit Correspondence. 


After the task has been installed each FORTRAN unit number used for input or output 
in the program must be associated with an actual I/O device. 


NOTE: 


The special library for stand-alone programs does not support the 
FORTRAN I/O statements. Thus, there is no !/O unit correspondence 
for stand-alone programs. User support routines must be supplied 

if operating system dependent statements are used in a stand-alone 
application. 


2.2.4.1 TAXO With Synonym Assignment. 


In this environment, logical unit numbers are assigned through synonyms, using the Assign 
Synonym command (AS). This command must be repeated for each logical unit number, 
n, used. The form of the command is: 


FORMAT 


AS 


SYNONYM: UNITn 
VALUE: LP0O1,ME,etc. 
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2.2.4.2 TAXO With Global LUNO Assignment, 


In this environment, logical unit numbers are globally or locally assigned. The form of the 
commands are: 


FORMAT 
AGL 
LUNO: 
ACCESS NAME: 
PROGRAM FILE?: NO 
AL 


LUNO;: 
ACCESS NAME: 
PROGRAM FILE?: NO 


The user responds with the unit number used in the FORTRAN I/O statement and the 


appropriate TAXO device or pathname. This must be repeated for each logical unit 
number used. 


2.3 Task Execution. 


Once the program I/O unit correspondence is established the program is ready for execution. 
The following paragraphs describe the steps necessary to execute the task. 


2.3.1 Program Execution Under TAXO Using Synonyms, 


The command XFT (background) or XFTF (foreground) executes an installed FORTRAN 
program in this environment. The following prompt messages are displayed: 


PROGRAM FILE LUNO: 
TASK ID: 


The user must enter the LUNO (0 if done by the link editor) to which the program is 
assigned and the task ID, which comes from the link map of the FORTRAN installed task. 


The user may need to assign a station LUNO (AL) or a global LUNO (AGL) to the program 
file before execution can begin. 


2.3.2 Program Execution Under TAXO With Global LUNOs. 


The command XT executes a FORTRAN program in this environment. The following prompt 
message are displayed: 


PROGRAM FILE OR LUNO: 
TASK NAME OR ID: 
PARM 1: 0 
PARM 2: 0 
STATION ID?: ME 
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The user should respond with the program file in which the task was installed and with 


the task ID. The remaining messages should be skipped (enter RETURN for each), 
indicating default values. 


2.3.3. Executing Stand-alone Programs. 


If a stand-alone program is loaded by the ROM loader, the loader automatically trans- 
fers execution control to the loaded program. If the user uses his own loader, he 


must specify the procedure for initiating execution. There are two ways that the 
program may be entered: 


1. Word 0 of the program contains the initial workspace and word 1 contains 
the initial entry point. If the program is entered by setting the WP and PC to 
these values, the status register is not reset. 


2. The linked object contains a different entry point address from that in 1 
above (a 2 tag). If the program is entered at this entry point, the WP is 
automatically set to the initial workspace and the status register is reset. 


2.3.4 Batch FORTRAN Execution. 


The steps described in the preceding paragraphs to prepare and execute a FORTRAN 
program may be combined into a batch stream of commands. The batch stream may be 
executed to accomplish all or part of the FORTRAN preparation and execution process. 
The following is an example of a batch stream that compiles, link edits, installs, and 
executes a FORTRAN program. 


e438 

we EXECUTE FORTRAN COMPILER 
3 SF = SOURCE FILE 

He OB = OBJECT FILE 

34 LF =. LIST FPILe 

w% OP = OPTIONS 

34 PW = PRINT WIDTH 


XF78 SF = .FTNSRC, OB = .FTNOBJ, LF = .FTNLST, OP = O, PW =: 
Ht 


He COPY OBJECT TO FILE TO USE IN LINK EDIT 


+H IQ = INPUT 

4 OA = OUTPUT 

He RE = REPLACE 

cc IA = .FTNOBJ, OA = .FOBOBJ, RE = YES 
Ht 

#* EXECUTE LINK EDITOR 

ca CF = CONTROL FILE 

HH LO = LINKED OUTPUT 

4H LF = LINKED LIST 

tHe PW = PRINT WIDTH 


XLE CF = .FTNCTL, LO =.LNKOUT, LF =.LNKLST: PW = & 


ca 
Oo 
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He 
#% INSTALL TASK 
HH PF = .FTNPRO, 
eH TN = .FTNTSE, 
44 TID = TASK ID 
He OB = DBJECT 
IT PF = .FTNPRO, 

TN = .FTNTSK: 

TID = Oss 

OB = .LNKOUT 
Ke 
ee 


#% EXECUTE THE FORTRAN PROGRAM 


3% PL = PROGRAM FILE LUNO 
st ID = TASK ID 
3e4t 


XFT PL = O, ID = 088 

## DELETE TASK 

Po P = PROGRAM FILE 
+H -TK = TASK ID 

DT P=90) TK = 0838 


Refer to Operator's Manual Il for more information describing how to build a batch stream. 
2.3.5 Program Termination. 


Errors and warnings detected by the FORTRAN run-time support package are written by 
an error logging routine on the terminal local fole, except when the program is linked with 
the DXLOB,J library in which case errors and warnings are written on the system log. 
Refer to Appendix A for a list of the errors and warnings. Upon successful termination, all 
relative record user files are closed and all sequential user files are closed with an end-of- 
file before the program is terminated. The following message is displayed: 


NORMAL PROGRAM COMPLETION 


Termination due to a fatal error leaves all user files open for the operating system to close 


after program termination. This includes errors which cause the end and action vector 
to be taken. 
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3 FORTRAN~-78 RUN-TIME DESCRIPTION 
3.1 General 


Many of the functions available to the FORTRAN user are provided in the form of callable 
subprograms that must be linked with the object code output of the compiler. These 
include not only the explicitly called functions (such as the intrinsic functions), but also 
many that are automatically called by the compiler. All of these routines are included in 
the FORTRAN-78 run-time libraries, 


The FORTRAN-~78 run-time libraries consist of four directories: OSLOBJ, STLOBJ, DXLOBJ, 
and SALOBJ that may be linked with compiler generated object code. For TAXO environments, 
the standard FORTRAN-78 run-time routines are contained in two directories. The first 
directory, OSLOBJ, contains operating system specific routines. OSLOBJ cannot be used 

for stand-alone FORTRAN. All other FORTRAN routines are contained in the second standard 
directory, STLOBUJ. Linking with a special directory, DXLOBU, and the standard directories, 
OSLOBJ and STLOB4J, produces linked object modules for execution under TAXO, using 

global LUNOs for input/output. Linking with SALOBU for stand-alone applications and the 
standard directory STLOBJ produces linked modules that must not require operating system 
support for execution. 


3.2 Run-Time Directories. 


The following paragraphs briefly describe the methods of I/O unit correspondence, message 
and error logging, and program termination provided by each directory. 


3.2.1 The TAXO Standard Directories. 


The standard FORTRAN-78 run-time is made up of the directories OSLOBJ and STLOBJ. 
OSLOBJ provides the support functions that are operating system specific, such as input/ 
output function (READ, WRITE, ACCEPT, DISPLAY, REWIND, ENDFILE, etc.). STLOBJ provides 
nonoperating system specific functions and modules that are independent of the operating 
system environment (for example, the real arithmetic support.) 


I/O unit correspondence is provided through synonym assignment using the TAXO System 
Command Interpreter. Messages and errors are logged on a terminal local file. The terminal 
local file is automatically output at the end of execution. 


3.2.2 DXLOBJ Directory. 


DXLOB,J is the special directory for programs that are linked for execution under TAXO using 
global LUNOs, This directory contains only those routines that are modified to use global LUNO 
1/0 unit correspondence. All other routines are obtained from the standard directories. 1/O 
unit correspondence is provided by the assignment of a global or task local LUNO to the 


device or file used in the FORTRAN program. Messages and errors are logged on the system 
log. 
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3.2.3 The Stand-Alone Directory 


SALOBJ is the special stand-alone directory. This directory contains only those special 
nonoperating system dependent routines which are required to support every FORTRAN 
program. Other routines are obtained from the standard directory containing nonoperating 
system dependent support functions: STLOBJ. Functions requiring operating system 
support (refer to table 3-1) may not be used. These functions are contained in the stan- 
dard directory OSLOBJ. Use of an operating system supported function requires that the 
support routines be supplied by the user. 


Table 3-1. Operating System Dependent Functions 


All I/O except CRU READ,WRITE,ACCEPT, DISPLAY, BACKSPACE, 
OPEN,BUFIN,BUFOUT,RECSKP, 
Multiple Key Indexed File Support 


ISA File Contention Routines RDRW,WRTRW,CFILW,DFILW,OPENW,CLOSEW, 
SVCFUT,MODAPW,RDSTS,RDMTS,WRMTR, 
RDMTR,WRMTS,WRTMSK,READ32,RDIBIT 


ISA Extensions Making SVC,DATIME,WAIT, TRNON,START, TIME, 

O.S. Supervisor Calls BIDTSK,DLYBID,EXTASK,ATIME,ADATE, 
- DATE,MDATE 

Initialization 


Error Logging 
Termination 


Messages and errors are logged by leaving an error code in word 0 of F$XLWS. An error 
code of 0 implies normal termination. A nonzero code implies an error has occurred, The 
code is the address of a message buffer that contains a message describing the error, The 
first word in the buffer specifies the number of ASCIil characters in the message and is 
followed by the ASCII characters of the message. 


Termination is handled by the module F$XFTL. The task is terminated by using an idle 
instruction. 


3.3 Modifying Run-Time Modules 


The user can modify certain characteristics of the FORTRAN run-time package by supplying 


to the link editor customized modules that replace the standard modules, 
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3.3.1 Modifiable Charcteristics 


The characteristics that can be altered are as follows. 


° Number of I/O Units Allowed - Table space allocated for file control blocks 


and physical record blocks determines the number of I/O units that may be 
used 


1/O Buffer Size - Space allocated for the I/O buffer determines the maximum 
length of records that may be read or written 


Termination processing 
End vector processing 


Error logging 


The modules controlling these characteristics may be modified and then used in place 


of the standard modules to alter the standard operational characteristics of the FORTRAN 
run-time directories. 


3.3.2 Number of 1/O Units Allowed 


The modules F$XFCB and F$XTBL control the maximum number of units that may be used 


in a FORTRAN program. If one altered the other should be checked to ensure that compati- 
bility is maintained. 


F$XFCB is the file control block built at run-time. This table should have one entry for each 
logical unit number (LUNO) that the FORTRAN program uses for I/O. The default table size 
allows I/O to 20 LUNOs, The number of LUNOs allowed. may be altered by changing the 


value of MAXLUN in this module. MAXLUN is equated to the maximum number of LUNOs 
allowed. 


NOTE: 


If the maximum number of LUNOs allowed is increased, F$XTBL should 


be examined to ensure that there is enough physical record block (PRB) 
table space available for the extra LUNOs. 


Figure 3-1 is a listing of FSXFCB. 


F$XTBL contains the table space for the physical record block (PRB). For each |/O unit 
there must be space for a PRB. The PRB area is defined by two labels. F$XTBL defines 
the start of the PRB area and F$XTBE defines the end of the PRB area. 


For the F$XTBL module, the size of the PRB area is specified by the label TBLSIZ. This 
area may be increased by changing the value of TBLSIZ but it must not be less than >360 
because the area is initially used to read in the TCA record, The space for each PRB is 38 
bytes. Therefore, for a maximum of 20 LUNOs, 760 ( >2FB) bytes must be available. Since 
this is less than > 360, TBLSIZ must be set to >360. Figure 3-2 is a listing of FSXTBL for use 
on TAXO,. 
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IDT “FSXFCB* ALLOW I/O TO 20 LUNS 
+ . 
MAXLUN EQU 20 
% 
x 
% DEFINITION OF AN FCB 
+ 
Es 
DORG O 
LUN BSS 1 LUN NUMBER FOR THIS FCB ENTRY 
LSTATS BSS 1 LAST STATUS ON FILE 
PRB BSS 2 ADDR OF PRE TO ACCESS LUN 
STATE BSS 1 STATE OF LUN AFTER LAST I/0 
FLAGS BSS 1 MISC FLAG BYTE 
ASSCAD BSS 2 ASSOCIATED VARIABLE ADDRESS 
FINAME BSS 2 ADDRESS OF FILE NAME 
CCTADR BSs = ADDRESS OF BUFIN CHARACTER COUNT 
EVEN 
$ 


ENDFCB EQU 
* 
+ 
+ 


LENGTH OF FCB STRUCTURE 


DEF FSXFCB,FSXFCE 
* 
RORG : 
DSEG 
FSXFCB EQU $ START OF FCR TABLE 
BSS MAXLUN#ENDFCB 
FSXFCE ERU $ END DF FCB TABLE + 1 
DEND 
END 


Figure 3-1. FS$XFCB 
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* 


TBLSIZ 
FSXTBL 


FSXTBE 
* 

* sve 
FSXPRB 


FSXOP 


FSTCA 


FSXNUM 
+ 


FSXPRM 
AB2 
FSxTIC 
AB4 


FSXCAL 
% 


IDT 


DEF 
DEF 
DEF 
DEF 


DSEG 
EG 
EVEN 
EQU 
BSS 
EQU 


PAGE 
CALL 
EVEN 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
DATA 
BATA 
DATA 
DATA 
BYTE 
BYTE 


EVEN 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
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“FSXTBL“ 


FSXTBL,FSXTBE 


FSRPRM,FSRASN, FSRPRE, 
FSRTCA,FSRTID»FSRCAL, 


FSXTID,FSXCAL,FSXMON 
2360 


$ 
TBLSIZ 
$ 


BLOCKS USED BY FSRGET 


a 


Fooe Ze eeyoos 
o 
o 


FSROP, FSRNU 
FSRMON 


START OF TCA RECORD BUFFER 


END OF TCA RECORD BUFFER + 1. 


TO READ TCA RECORD 


I/O CALL 

I/O SVC ERROR CODE 
INITIALLY “OPEN’ OP ~~ 
LUNO OF TCA FILE 
SYSTEM FLAGS 

USER FLAGS (NO SHARE) 
ADDR OF TCA BUFFER 
LENGTH OF TCA (CHARACTERS) 
CHARACTER (COUNT 

NOT USED HERE 

NOT USED HERE 

REC NUMBER (ID) 


DUMMY 

CONTAINS TERMINAL [ID 
DUMMY 

CONTAINS CALLED TASK ID 


Figure 3-2. FSXTBL 
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% 
- EVEN 
FSXASN BYTE >15 ASSIGN TCA FILE 
IGNERR BYTE 0O 
BYTE i:32 OP CODE=ASSIGN,FLAGS=RR 
BYTE > SF,0 LUNG 15 ; 
DATA >360 RECORD LENGTH 
DATA “TC” 
DATA “AF 
DATA IL“ 
DATA “DS” 
RATA. “ 
DATA 9O NUMBER OF RECORDS 
DATA O NUMBER OF RECORDS 
* 
EVEN 
FSXMON BYTE 0-0 MONITOR ID FOR THIS TERM. 
# 
PAGE 


FSRPRM EQU FSXPRM-FSXTBL 

FSRASN EQU FSXASN-FSXTBL 

FSRPRB EQU FSXPRB-FSXTBL 

FSROP ERQU FSXOP-FSXTBL 

FSRNUM EQU FSXNUM-FSXTBL a 
FSRTCA ERU FSTCA-FSXTBL 
FSRTID EQU FSXTID-FSXTBL 

FSRCAL EU FSXCAL-FSXTBL 

FSRMON ERU FSXMON-FSXTBL 


* 


Figure 3-2. F$XTBL (Continued) 


3.3.3 I/O Buffer Size 


The size of the I/O buffer is controlled by module FSRBUF,. FSRBUF is a data module that 
contains a buffer for the format editor. The standard length of the buffer is 288 characters; 
four additional characters are reserved for carriage control editing. 


When using the WRITE statement, carriage control is edited into the output buffer for the 
teleprinter, line printer, and VDT. The editing is performed by the run-time module F$XIOF 
and involves the first character in the output buffer. The following editing is done. 


° For no advance, the character + is changed to a carriage return. 
° For double spacing, the character 0 is changed to a line feed, and a carriage 


return and line feed are inserted on the front of the buffer. Then the buffer address 
is decremented by two, and the character count is incremented by two. 
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° For top of form, the character 1 is changed to a form feed, and a carriage 


return is inserted on the front of the buffer. The buffer address is then decre- 
mented by 1, and the character count is incremented by 1. 


For single spacing, all other characters used in the first character position 
in the output buffer are changed to a line feed, and a carriage return is in- 
serted on the front of the buffer. The buffer address is then decremented 
by one, and the character count is incremented by one. 


Editing is not performed on output to disk, cassette, or device types greater than six. 
Refer to the Operator's Manual Il, for device types. 


NOTE: 
lf an EIA device is interfaced to the computer via a line printer interface, 


carriage control is lost if output is written to a disk file and then copied 
from disk to the line printer. 


No formatted I/O may be performed with record sizes greater than the length of this 
buffer. 


The user may change the length of the I/O buffer by changing the value of F$XBFS in 
this module. F$XBFS must be equated to the desired character length. 


FSXBFS is referenced in F$XVFB. If F$XVFB is linked into a shared procedure then all 
tasks using that procedure must be linked with the same version of FSRBUF. 


The following is a listing of the existing FSRBUF module: 


IDT “FSRBUF “ 


% 
DEF FSRBUF»FSXBFS 
% 
FSXBFS EQU 233 TOTAL BUFFER LENGTH 
DSEG , 
BSS 4 CARRIAGE CONTROL CHARS 
FSRBUF BSS FSXBFS I/Q BUFFER 
DEND 
% 
END 


3.3.4 Termination Processing 


A FORTRAN program always terminates in module F$XFTL. F$XFTL terminates the user 
task and transfers control to the operating system. All termination modes including normal, 
detected error, and end vector terminations are performed here. 
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Special termination processing can be supplied by replacing F$XFTL with a user-written 
module that has F$XFTL as the entry point name. 
NOTE: 


No processing that depends upon using a particular workspace should 
be performed. 


3.3.5 End Vector Processing 


If an error that causes the end vector to be taken occurs in a FORTRAN program, control 
is transferred to module FSREVP. FSREVP contains the end vector routine, which should 
never be reached. It logs a message and then branches to F$XFTL, the task termination 
routine. 


Special end vector processing can be supplied by replacing F$REVP with a user-written 
module that has F$REVP as the entry point name. 


NOTE: 


No processing should be performed that depends upon using a particular 
workspace. 


3.3.6 Error Logging 


All messages and errors are logged by the module F$XLOG. The error logger F$XLOG writes 


a message to the terminal local file. The type of message is encoded into the message as 
follows: 


<MESSAGE NAME > BYTE <CODE> 
BYTE <LENGTH> 
TEXT ‘<MESSAGE>’ 


In this message, 


<CODE> = 0 if no additional information required 


= 1 if an error code is present. If specified, CODE = XXXX is added 
to the message. 


= 2 if a unit number is present. If specified, UNIT = XXXX is added 
to the message. 


<LENGTH> = Length of message text in bytes 


<MESSAGE> = Error message text 
S 
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Calling sequence: 


LI RO, <MESSAGE NAME> 
LI R1, <ERROR CODE> (optional) 
LI R2, <UNIT NUMBER> (optional) 


BLWP @FSXLOG 


NOTE: 


This routine is called by a BLWP through a transfer vector in FSRWRK. 
Its workspace, temporary variables, and buffer are in F$XLWS. 


3.3.7 Linking with User-Supplied Modules on TAXO 


The modules that the user supplies should be maintained in a directory to link with a 
FORTRAN program. The modules are included by a library search rather than by an 
explicit INCLUDE command during the link edit procedure. Thus, both the specified 
and standard modules cannot be included in the link together. 


NOTE: 


The special user directory must have aliases added for each entry 
point if the module names are different from the entry point names. 
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4 CALLING SEQUENCES BETWEEN FORTRAN-78 AND ASSEMBLY LANGUAGE PROGRAMS 


4.1 General 


FORTRAN-78 programs may call user-written or run-time provided assembly language 
subprograms using FORTRAN statements. The assembly language statements generated 
by these FORTRAN statements are referred to as calling sequences. Examples of the 
calling sequences are provided so that the FORTRAN programmer wishing to write his 
own assembly language subprograms can model his calling sequence after those gene- 
rated by the FORTRAN statements. When the FUNCTION or SUBROUTINE statement is 
compiled, a set of assembly language statements is generated which initializes the sub- 
program and accepts parameters form the calling program. These assembly language 
statements are referred to as receiving sequences, Examples of the receiving sequences 
generated by compilation of the SUBROUTINE and FUNCTION statements are included 
as models for user-written assembly language subprograms, FORTRAN-~78 provides a 
set of macros that generate calling sequences and receiving sequences. The FORTRAN~78 
programmer may use these macros instead of coding the necessary calling and receiving 
sequences. 


4.2 Calling Sequences For Subprograms 


The FORTRAN~78 programmer may call both standard, recursive, and run-time sub- 
programs from his program using FORTRAN statements. When the FORTRAN statement 
is compiled, an assembly language calling sequence is generated which calls the sub- 
program. The FORTRAN statements and the calling sequences they generate are des- 
cribed in the following paragraphs. The FORTRAN-~78 programmer can use the assembly 
language calling sequences shown as a guideline for creating his own subprogram calling 


' sequences, 


4.2.1 Standard Subprograms 


The compiler generates the following calling sequence for linkage to a standard subprogram. 
Source: 

CALL SUB(A1,A2,...,An) 
Generated Code: 


BLWP @ SUB 
DATA n 
DATA A1 
DATA A2 


DATA An 


The parameters are passed as a vector of 16-bit addresses following the linkage to the 
subprogram. If the low-order bit of the parameter word is 0, the parameter word is the 
word address of the parameter value. If the low-order bit is 1, the parameter is the word 
address of a 16-bit pointer that indicates the location of the parameter value. 
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EXAMPLE: 
CALL JOE(I,K(J)) 


The system computes the address of K(J), stores the address in a temporary word, 
and passes a pointer (with the low-order bit set) to the temporary location TEMP. 


MOV @y,R7 

Al —-R7,K=2 
MOV R7, a TEMP 
BLWP @ JOE 
DATA 2 

DATA | 

DATA *TEMP 


In the previous code, * is indirect (low-order bit = 1). 


4.2.2 Recursive Subprograms 


The compiler generates the following calling sequences for linkage to a recursive sub- 
program. 


Source: 


RECURSIVE SUB 
CALL SUB(A1,A2,...AN) 


Generated Code: 


BLWP @FSXREC 
DATA SUB 
DATA n 

DATA A1 

DATA A2 


DATA An 


The subprogram name, the number of parameters, and the actual parameters are passed 
to the routine F$XREC. The parameters to the subprogram are passed as a vector of 16-bit 
addresses following the linkage to the subprogram. If the low-order bit of the parameter 
word is 0, the parameter word is the word address of the parameter value. If the low-order 
bit is 1, the parameter is the word address of a 16-bit pointer that indicates the location of 
the parameter value. 
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4.2.3 Run-time Subprograms 


The run-time subprograms are accessed through various FORTRAN I/O statements, The 
calling sequence generated by each statement is shown following the statement. 


FORTRAN programs that run in the stand-alone mode cannot reference any run-time 
routines that depend on the services of an operating system. The dependent routines 

are included in a seperate FORTRAN run-time directory, OSLCBJ. Stand-alone FORTRAN 
does not support FORTRAN language statements that must make a supervisor call during 
processing. Those FORTRAN statements can be only be used with user-written I/O 
support routines. The following sections document the software interface between the 
compiler-generated object code and the run-time !/O support routines. 


4.2.3.1 READ/WRITE Calling Sequences 


The READ and WRITE stements have the following general calling sequence: 


BLWP @<I/O set up> ENTRY POINT FOR A GIVEN TYPE 
OF 1/0. 

DATA <arg 1> ADDRESS OF THE ENTRY POINT 
ARGUMENTS 


DATA <arg n> 


BLWP @<list element 1 handler> HANDLES EACH ELEMENT IN THE I/O 


STATEMENT LIST 
DATA <list element 1> 


BLWP @<list element n handler> ENTRY POINT NAME 
DATA <list element n> ADDRESS OF THE LIST ELEMENT 
BLWP @<finish /O> TERMINATES I/O OPERATION 


The name of the final entry point depends upon whether formatted or unformatted I/O is 
being performed, This routine has no arguments. All arguments are passed by address 
except those specially noted. 


Formatted READ/WRITE. 
The calling sequence for each variation of formatted READ/WRITE statement follows: 
READ(unit,format)list 

BLWP @FSRRF 


DATA unit 
DATA format 


(calls to list handlers) 


BLWP @FSRSIO 


4/k 


READ (unit,format,END = label 1,ERR = label 2) list 


BLWP 
DATA 
DATA 
DATA 
DATA 


@FSRRFB 
unit 
format 
label1 
label2 


(calls to list handlers) 


BLWP 


@FS$RSIO 


READ (unit,format,END = label 1) list 


BLWP 
DATA 
DATA 
DATA 


@FSRRFD 
unit 
format 
label 


(calis to list handlers) 


BLWP 


@FS$RSIO 


READ (unit,format,ERR = label 1) list 


BLWP 
DATA 
DATA 
DATA 


@FSRRER 
unit 
format 
label1 


(calls to list handlers) 


BLWP 


@FSRSIO 
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WRITE (unit,format) list 


BLWP @FSRWF 
DATA — unit 
DATA format 


(calls to list handlers) 
BLWP @FSRSIO 


WRITE (unit,format,ERR = label 1) list 


BLWP @FSRWFR 
DATA unit 

DATA format 
DATA label1 


(calls to list handlers) 


BLWP @FS$RSIO 


Unformatted READ/WRITE, 


The calling sequence for each variation of unformatted READ/WRITE statement follows: 


READ(unit)list 
BLWP @FS$RRU 
DATA unit 


(calls to list handlers) 


BLWP @FSRSIP 
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READ (unit,END = label 1,ERR = label! 2) list 


BLWP @FSRRUB 
DATA unit 

DATA label 
DATA label2 


(calls to list handlers) 


BLWP @FSRSIP 


READ (unit,END = label 1) list 


BLWP @FS$RRUD 
DATA unit 
DATA label 


(calls to list handlers) 


BLWP @FSRSIP 


READ (unit,ERR = label 1) list 


BLWP @FSRRUR 
DATA unit 
DATA label1 


(calis to list handlers) 


BLWP @FSRSIP 
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WRITE (unit) list 


BLWP @FS$RWU 
DATA unit 
(calls to list handlers) 


BLWP @FSRSIP 


WRITE (unit,ERR = label 1) list 


BLWP @FSRWUR 
DATA unit 
DATA label1 


(calls to list handlers) 


BLWP @FSRSIP 


Formatted Direct Access READ/WRITE, 


The calling sequence for each variation of format’>d direct access READ/WRITE statement 


follows: 


READ(unit’record,format)list 
BLWP @FS$RRE 
DATA unit 


DATA format 
DATA record 


(calls to list handlers) 


> @FSRSIO 
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READ (unit'record,format,END = label 1,ERR = label 2) list 


BLWP 
DATA 
DATA 
DATA 
DATA 
DATA 


@FSRREB 
unit 
format 
record 
label4 
label2 


(calls to list handlers) 


BLWP 


@FSRSIO 


READ (unit'record,format,END = label 1) list 


BLWP 
DATA 
DATA 
DATA 
DATA 


@FSRRED 
unit 


format 


record 
label1 


(calls to list handlers) 


BLWP 


@FS$RSIO 


READ (unit'record,format,ERR = label 1) list 


BLWP 
DATA 
DATA 
DATA 
DATA 


@FSRRER 
unit 
format 
record 
label1 


(calls to list handlers) 


VP @FSRSIO 
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WRITE (unit'record,format) list 


BLWP @FSRWE 
DATA unit 
DATA format 
DATA record 


(calls to list handlers) 


BLWP @FSRSIO 


WRITE (unit'record,format,ERR = label 1) list 


BLWP @FSRWER 
DATA unit 

DATA format 
DATA record 
DATA label 


(calls to list handlers) 


BLWP @FSRSIO 


Unformatted Direct Access READ/WRITE, 


The calling sequence for each variation of unformatted direct access READ/WRITE statement 
follows: 


READ(unit’record)list 


BLWP @FSRRL 
ATA unit 
“A record 


handlers) 


oRSIP 
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READ (unit'record,END = label 1,ERR = label 2) list 


BLWP 
DATA 
DATA 
DATA 
DATA 


@FS$RRLB 
unit 
record 
label1 
label2 


(calls to list handlers) 


BLWP 


@FS$RSIP 


READ (unit'record,END = label 1) list 


BLWP 
DATA 
DATA 
DATA 


@F$RRLD 
unit 
record 
labeH 


(calls to list handlers) 


BLWP 


@FS$RSIP 


READ (unit'record,ERR = label 1) list 


BLWP 
DATA 
DATA 
DATA 


@FSRRLR 
unit 
record 
label1 


(calls to list handlers) 


“WP @FSRSIP 
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WRITE (unit'record) list 


BLWP @FSRWL 
DATA unit 
DATA record 


(calls to list handiers) 


BLWP @FSRSIP 


WRITE (unit'record,ERR = label 1) list 


BLWP @FS$RWLR 
DATA unit 

DATA record 
DATA label1 


(calls to list handlers) 


BLWP @FSRSIP 


1/9 List Element Handlers, 


Each element in the I/O list of READ or WRITE statement generates a call. The entry point 


depends upon the elements. If the element is an unsubscripted array name, the general format 
of the call is: 


BLWP @<entry point> 

DATA <element name>. 

DATA <array size name> 

DATA <scale factor> (only present for fixed type) 
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The following entry point names apply: 


FS$RIUS — integer array, formatted I/O 
FSRIUT — integer array, unformatted !/O 


FSREUS — extended integer array, formatted I/O 


FSREUT — extended integer array, unformatted I/O 
FSRFUS — fixed array, formatted I/O 

FSRFUT — fixed array, unformatted I/O 

FSRRUS — real array, formatted I/O 

FSRRUT — real array, unformatted I/O 

FSRDUS — double-recision array, formatted I/O 
FSRDUT — doubie-precision array, unformatted I/O 
F$RCUS — complex array, formatted I/O 

FSRCUT — complex array, unformatted 1/O 
FSRLUS — logical array, formatted I/O 

FSRLUT — logical array, unformatted 1/O 

F$RSUS — character array, formatted I/O 


The first argument following a BLWP instruction is the adress of the list element, The 
second argument is the address of the location containing the size of the array. The 
third argument is the scale factor of a fixed array and is present only when the entry 
point is FSRFUS or F$RFUT. The third argument is not an address. 


If the element is a scalar variable, constant, or array element the general format of 
the call is: 


BLWP @<entry point> 
DATA <element name> 
DATA <scale factor> (present only for fixed type) 


The following entry point names apply: 


F$RIOL — integer, formatted I/O 
FSRIOM — integer, unformatted I/O 
FSREOL — extended integer, formatted !/O 
FSREOM — extended integer, unformatted I/O 
FSRFOL — fixed, formatted 1/O 
FSRFOM — fixed, unformatted I/O 
FSRROL — real, formatted VO 
FSRROM — real, unformatted I/O 
FSRDOL — double-precision, formatted I/O 
FSRDOM — double-precision, unformatted I/O 
FSRCOL — complex, formatted I/O 
FSRCOM — complex, unformatted /O 
FSRLOL — logical, formatted !/0 
FSRLOM — logical, unformaited 1/O 

“RSOL — character, formatted /O 


The first word following the BLWP instruction contains the address of the list element. The 
second word contains the scale factor, but is only present when the entry point is FSRFOL 
or FSRFOM. The second word is not an address. 
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4.2.3.2 OPEN/FIND Calling Sequences 


The calling sequence for defining direct access files and for locating a record is as 
follows. 


OPEN (unit,ACCESS = 'DIRECT',RECL = record length, 
FORM = unformatted/formatted/unknown, 
ASSOCV = associate variable, NUMREC = number of records) 


BLWP @ FSRDEF 


DATA unit Location address of unit number 

DATA number of records Location address of number of records 

DATA record length Location address of record length 

DATA format control Location address of the code for the type 
of format control* 

DATA associate variable Address of the associate variable 


* The codes are: 
0 = format control 
1 = no format control 
2 = either format or no format control 
FIND (unit'record) 
BLWP @ FSRFND 


DATA unit Location address of the unit number 
DATA record 


4.2.3.3 BUFIN/BUFOUT and RECSKP Calling Sequences 


The subroutines for transferring physical records between I/O devices and memory 
buffers and for changing position within a file are called as follows: 


CALL BUFIN (unit,mode,buffer,charcount) 


BLWP @BUFIN 


DATA 4 Number of arguments in the source 
statements 

DATA unit Location address of the unit number 

DATA mode Location address for the mode of 
operation (O=ASCIl, 1=binary) 

DATA buffer Location address for memory buffer area 

DATA charcount Location address of the number of 


characters to be transferred 
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CALL BUFOUT (unit,mode,buffer,charcount) 


BLWP @ BUFOUT 


DATA 4 Number of arguments in the source 
statements 
DATA unit Location address of the unit number 
DATA mode Location address for the mode of 
operation (O=ASCIl, 1=binary) 
DATA buffer Location address for memory buffer area 
DATA charcount Location address of the number of 


characters to be transferred 
CALL RECSKP (unit,number of records, ieof) 


BLWP @ RECSKP 


DATA 3 Number of arguments in the source 
statements 

DATA unit Location address of the unit number 

DATA number of records Location address of the number of 
records to be skipped 

DATA ieof Location address where the end of 


file indicator is returned 


4.2.3.4 ACCEPT/DISPLAY Calling Sequences 


The calling sequences for transferring data to and from the screen of video display 
terminal 1/O devices (VDTs) are as follows: 


ACCEPT (unit,format,line = label1,position = label2,erase,prompt,echo, 
graphics,ERR = label3) list 


BLWP @ FSRACC 

DATA unit 

DATA format 

DATA label1 

DATA label2 

DATA flag (graphics,echo,prompt,erase in bits 12, 13, 14, 15, respectively) 
DATA label3 


e 


(calls to list handlers) 


BLWP @ FSRSIO 
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DISPLAY (unit,format,line = label1,position = label2, erase, 
intensity = high/low,graphics,erase,ERR = label3)list 


BLWP @ FSRDIS 
DATA unit 
DATA format 
DATA label1 
DATA label2 


DATA flag (intensity,graphics,erase in bits 11,12,15, respectively) 
DATA label3 


(calls to list handlers) 


BLWP @ FSRSIO 


4.2.3.5 REWIND/BACKSPACE/ENDFILE Calling Sequences 


The calling sequences for rewinding a file, backspacing a record on a file, and placing 
an end-of-file on a file are as follows: 


REWIND unit 


BLWP @ FSRREW 
DATA unit 


BACKSPACE unit 


BLWe @ FSRBSP 
DATA unit 


ENDFILE unit 


BLWP @ FSREND 
DATA unit 


4.3 Receiving Sequences for Subprograms 


Each subprogram that is called by a FORTRAN-78 program contains a sequence of assembly 
language instructions which initialize the subprogram and enable it to accept parameters. This 
sequence of assembly language instructions is called the receiving sequence. The receiving 
sequence differs for standard subprograms and recursive subprograms. Both receiving se- 
quences are included in the following paragraphs. The FORTRAN-78 programmer who wishes 


to create his own subprograms can use these receiving sequences as a guideline for setting 
up his own. 
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4.3.1 Standard Subprograms 


The receiving sequence for standard subroutines is as follows: 


IDT “SUB111° SUBROUTINE NAME MUST CONTAIN 6 CHARACTERS- 


DEF SUB11i1 
REF FSRGMY 


SUB11i1 DATA WS WORKSPACE ADDRESS 

DATA START ENTRY POINT ADDRESS 
START BL @GFSRGMY 

DATA N NUMBER OF ARGUMENTS 

DATA T POINTER TO ARGUMENT ADDRESS LIST 
NAME TEXT ’SUBI11° NAME OF SUBROUTINE 


USER SUPPLIED ASSEMBLY LANGUAGE CODE 


RTWP RETURN TO FORTRAN PROGRAM 
WS BSS 32 WORKSPACE 

DATA “NAME PROGRAM NAME ADDRESS 

DATA. START SUBROUTINE ENTRY ADDRESS 

DATA 1 ROUTINE TYPE FLAG Y 
T DATA O ADDRESS OF ARGUMENT Al 

DATA O ADDRESS OF ARGUMENT A2 

DATA O ADDRESS OF ARGUMENT An 


ADDTIONAL USER SUPPLIED DATA MAY BE INSERTED HERE 


END 


F$RGMY is a FORTRAN routine that transfers the parameter addresses from the calling se- 
quence to a series of words beginning at T. Location T contains the address (not indirect) of 
Ail. T + 2 contains the address of A2, and T + 2 (n-1) contains the address of An. The user 
must allocate the data area required for these addresses, But the user does not have to be 
concerned with wether or not the low-order bit is set. FSRGMY handles the conversation to 
direct addresses. 


The name of the subroutine is included as part of the debugging trace back information. 
This name must be six characters in length, left-justified and blank-filled. The three words 
immediately following each workspace area will be modified by FSRGMY to contain the 
address of the subroutine's name, entry point address, and recursive flag. The subroutine's 
name, entry point address and the routine type flag are used for traceback information. The 
routine type flag is set to 1 for standard subroutines and to 2 for recursive subroutines, 
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For multiple entry points, a FSRGMY should be used at each entry point even if the 
_ number of arguments is zero to establish the correct traceback information. For zero 
arguments, remove the DATA statement for the pointer to the argument list. 


To further assist in the debugging of the program, the location of the arguments relative 

to the main program origin may be determined by the following method. Add the location 
of the variable (see the allocation section of the FORTRAN compiler listing) to the origin 

of the $DATA module which immediately follows the module containing the variable 

(the $DATA module is found in the load map listing of the link editor). 


4.3.2 Recursive Subprograms 


Subprograms which are to be used recursively have a receiving sequence which differs 


from standard subprograms. This receiving sequence is generated by the compiler, The 
code generated for such a subprogram is: 


#* FUNCTION FACTOR(N) 
IDT “FACTOR” 
DEF FACTOR 
REF FSRGMY,FSXRER 


FACTOR DATA >30033_ NUMBER OF DATA BYTES NEEDED 
DATA START STARTING ADDRESS 
START BL @FSRGMY 
DATA >8001 NUMBER OF ARGUMENTS + >3000 
BATA T#O POINTER (RELATIVE TO R10) TQ 
ARGUMENT ADDRESS LIST 
TEXT “FACTOR SUBPROGRAM NAME TEXT STRING 


(User-supplied assembly lansuase code) 


#% RETURN 


BL @FSXRER RETURN FROM RECURSIVE CALL 
END 


The lines beginning with asteriks are the FORTRAN statements that would generate the 

listed assembly language code. Each invocation of a recursive subprogram requires allocation 
of a unique data area to be used by it. The recursive memory manager requests blocks of 
1024 bytes at a time from the operating system for this purpose. When a block is no longer 
being used, its memory is returned to the operating system. 


Refer to the FORTRAN-78 Reference Manual for information describing the use of recursive 
FORTRAN subprograms. 
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4.4 Macros 


Macros are provided to aid in producing the proper receiving code sequences when sub- 
routines called by FORTRAN are written in assembly language and the Macro Assembler 
is used. In addition, assembly language subroutines that call FORTRAN subroutines can 
use macros to produce the proper calling sequences. 


4.4.1 Creating the Macros 


Before using the macros, the user must create a file and place the desired macros in it. 
Macros are not provided with the FORTRAN package. The macros that are required must 
be entered in the macro file by the user from the macro formats contained in this discussion. 


If one of the user-callable macros is to be used, the user must create a file that contains 
this macro. In addition, the file must contain the corresponding support macros since these 
macros are called by the user-callable macro. 


User-Callable Macros Support Macros 
FTNINT UNIQUE,PADSTR 
FTNSUB FPMEQU,UNIQUE,FPMGEN,PADSTR 
FTNCAL FPMDAT 


4.4.1.1 User-Callable Macros 


The following paragraphs describe macros that implement the FORTRAN call structure. 


FTNCAL Macro. The FTNCAL macro generates a FORTRAN subroutine call. The FTNCAL 
support macro is found in paragraph 4.4.1.2. 


FORMAT: 


FTNCAL SMACRO S,P 
REF :S: 


$SVAR NP 
SIF P.A&SPCALL P PRESENT? 
$IF P.A&SPOPL 
S$ASG P.V TO NP.V 
SELSE 
~$ASG 1 TO NP.V 
SENDIF 
SENDIF 
BATA *>NP.Ve 
UNL 
FPMDAT :P: 
LIsT 
SEND 
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FTNINT Macro. The FTNINT macro is used to set the FORTRAN run-time initialization 
whenever FORTRAN subprograms are to be used and a FORTRAN main program is not 
included. FTNINT support macros are found in paragraph 4.4.1.2. 


FORMAT: 


FTNINT 


SMACRO S SET FORTRN R/T INITIALIZATION 
REF FSXPRE,FSREVP 
SVAR T,U,WP»PC.N 
$ASG “UNIQUE” TO U.S 
UNIQUE 

SASG 2U.SS: TO PC.5 
UNIQUE 

$ASG :U.SS: TO WP.S 
DATA =WP.S: 

DATA :PC.S: 

DATA FSREVP 

BSS 32 

UNIQUE 

SASG :U.SS?: TO N.S 
DATA =N.S? 

DATA :PC.S: 

BATA O 

tVAR G 

tAS@ ‘’’' TO4a.S 
$AS@ :G@.9::8.5::@.S: TO T.S 
BL S@FSXPRE 


TERT 2 U.S: 
Ur 

PADSTR :T.L 
LIST 

SEN 


FTINSUB Macro, The FTNSUB macro generates a FORTRAN callable subprogram. FTNSUB 
support macros are found in paragraph 4.4.1.2. 


FORMAT: 


FTNSUB 


SMACRO SP 

SVAR U,WS, TX;PC,WK 

SASG “UNIQUE” TO U.S 

SASG “FTN3WS” TO WK.S WORKSPACE SYM SAVE 


SIF WK.SV=0 
UNIQUE 
SASG :U.SS: TO WS.S LABEL FOR WORKSPACE 
$ASG :U.SS: TO WK.SS FTN ENTRY MACRO 
SELSE 
SASG :WK.SS: TO WS.5 USE PREVIQUSLY CREATED WkKSP 
SENDIF 
UNTQUE 
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$ASG :U.SS: TO TX.S LABEL FOR TEXT STRING 
UNIQUE 
$ASG :U.SS: TO PC.S LABEL FOR INITIAL PC 
DEF :S: 
2S: DATA :WS.S:,:PC.S: ENTRY VECTOR 
* 
SIF WK.SV=0 IF FIRST INVOCATION 
:WS.S:! BSS 32 WORKSPACE 
DATA :TX.S!.:S:> TRACEBACK VECTOR 
$ASG 1 TO WK.SV SET FLAG 
SENDIF 
+ 
$VAR NP»CT»MP GET NUMBER OF CALLING PARAMETERS 


SASG “COUNT:“ TO CT.S 
SASG “MAX333° TO MP.S 
SIF P.A&SPCALL P PRESENT? 
SIF P.A&SPOPL 
$ASG P.V TO NP.V 
SELSE 
SASG 1 TO NP.V 
SENDIF 
SENDIF 


$IF NP.V>MP.SV IF MORE PARAMETERS THIS TIME 
% THAN LAST 
SASG NP.V TO MP.SV 
UNIQUE 
$ASG :U.SS: TO MP.SS 
:MP.SS: EU $ 
UNL 
FPMGEN :P3 
SELSE USE THE PREVIOUSLY DEFINED AREA 
$ASG O TO CT.SV 


UNL 
FPMEQU =P: 
SENDIF 


LIST 
REF FSRGMY 

=-PC.S: BL @GFSRGMY CRACK ARGUMENT ADDRESSES 
DATA =NP.V: 


SIF NP.V=0 IF NO PARAMETERS 
DATA O 

SELSE 
DATA =MP.SS: 

SENDIF 
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SVAR T 
$IF S.L<7 IF SUB NAME IN RANGE 
SVAR G 
$ASG ‘‘’' TO 4S 
$ASG :G.5::5.5::@.S: TO T.S 
Tx, Se TEXT :T.S: 
UNL 
PADSTR :T.L: 
LIST 
SELSE 
TEXT ‘SUBERR‘ SUBNAME TOO LONG 
SENDIF 
$END 
FTN; WS EGU ©G 
COUNT; EGU G&G 
MAXi ii EGU G 
+ 


4.4.1.2 Support Macros. 


The following support macros are called by the user-called macros to simplify certain 
specific function. 


FPMDAT Macro. The FPMDAT macro generates a data statement. 


FORMAT: 
FPMDAT $MACRO P1,P2 GENERATE DATA STATEMENTS 
* 
$IF P1.A&%$PCALL IF PARAMETER NON-NULL 
LIST 
DATA :P1.S: 
UNL 
FPMDAT :P2: 
$ENDIF 
* 
$END 
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UNIQUE Macro, The UNIQUE macro generates unique variable names in the string of 
the symbols table. 


FORMAT: 


UNIQUE $MACRO 
SVAR N,V 
$ASG “UNIQUE” TO N.S SYMBOL "UNIQUE" 
$ASG “N3s;VAL’ TO V.S 
$ASG “N33“:V.SVi TO N.SS 
$ASG V.SV+1 TO V.SV 
SEND 

33;VAL EQU O 
UNIQUE ERQU O 


PADSTR Macro. The PADSTR macro generates blanks to pad a string of characters to a 
maximum of six characters plus two quotes. 


FORMAT: 
PADSTR $S$MACRO ST GENERATES BLANKS TO PAD STRING 
* 
SIF ST.V<S SIX CHARACTERS + 2 QUOTES 
LIST 
TEXT “ ~ 
UNL 
PADSTR :ST.Vie+i 
SENDIF 
* 


SEND 
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FPMEQU Macro. The FPMEQU macro generates EQUS for the FORTRAN parameters. 


FORMAT; 


FPMEQU $MACRO P1,P2 
% 
$IF P1.A&SPCALL IF PARAMETER ONE PRESENT 
$SVAR CT» MP 
S$ASG “COUNT;” TO CT.S 
SASG “MAX333° TO MP.S 
LIST 
:P1: EQU ?MP.SS:+:CT.SV: ADDRESS OF PARAMETER :Pi: 
UNL 
$ASG CT.SV+2 TO CT.SV 
FPMEQU :P2: 
SENDIF 


SEND 


FPMGEN Macro, The FPMGEN macro generates a BSS instruction for a parameter list. 


FORMAT: 


FPMGEN SMACRO P1,P2 
* 
$IF P1.A&SPCALL IF CALLED WITH NON-NULL PARAMETERS 
LIST 
2Pis BSS 2 ADDRESS OF PARAMETER (P1) 
UNL 
FPMGEN :P2: 
SENDIF 


SEND 
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4.4.2 Using the Macros 


An assembly language routine can call a FORTRAN subprogram or can be called by a 
FORTRAN program using the user-callable macros, The macros are included in the 
assembly language code. When the macro is executed, the appropriate calling or re- 
ceiving sequence is generated. The following paragraphs discuss the macros used for 
linkage to standard subprogram. 


NOTE: 


These macros cannot be used to call recursive FORTRAN subprograms. 


4.4.2.1 FTNINT Macro. 


The FTNINT macro generates the FORTRAN run-time initialization necessary to calla 
FORTRAN subroutine from an assembly language program. Note that this macro (or its 
equivalent coding) is required whenever a FORTRAN main program will not be used. 
The format of the call follows. 
FORMAT: 

FTNINT S 


In the above statement, S is the name of the FORTRAN subroutine (see paragraph 4.4.2.3 
for an example). 


NOTE: 
This macro must be invoked before the first call to a FORTRAN subroutine is made. 


4.4.2.2 FTNSUB Macro 


The FTNSUB macro generates a FORTRAN callable subprogram, The macro is used at the 


beginning of the assembly language subprogram that is to be called by a FORTRAN program. 


FTNSUB builds an entry vector consisting of a workspace, entry point and end action for 
the subprogram. 


The format of the call follows. 
FORMAT: 
FTNSUB S, (P1, .., Pn) 


In the above statement, S is the label for the entry point into the assembly language sub- 
program. P1-Pn are parameters. 
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The FORTRAN program shown in figure 4-1 calls an assembly subroutine TEST shown in 
figure 4-2. 


IPAR1=11 

IPAR2=22 

CALL TEST (IPAR1,IPAR2) 
END 


Figure 4-1. FORTRAN Program 


FTNSUB is a macro that passes the entry point and two parameters to the assembly 
language subroutine. The entry point name from the macro FTNSUB must be the name 
used in the FORTRAN call. 


The entry point TEST is not seen in the assembly language subroutine since it is built 
in the macro processing and the label is used there. The subroutine TEST opens ST01, 
sends the value of the first parameter to STO1, and closes ST01. 


PRB 
OPCODE 


ADDR 


NAME 


OPEN 
WRITE 
CLOSE 
ADDRS 
BUFFER 
ILONVRT 
HEX 


UNL 

COPY MACRO 
LIST 

IDT “TEST? 


DxOP svc.,1i5 


FTNSUB TEST» (IPAR11,IPAR22) 


MOVB @OPEN, @OPCODE 
svc @PRB 

MOV @IPAR11,R1 
MOV #R1,RO 

svc @CONVRT 


MOV @HEX, GBUFFER 
MOVB @WRITE, COPCODE 
MOV @GADDRS, GADDR 
SVC @PRB 

MOVB. @CLOSE, @COPCUDE 
Svc @PRB 


BYTE 0,0 
BATA 9,30 
DATA NAME 
BYTE 4 

TEXT “STO” 
BYTE >30 
BYTE 2B 
BYTE >81 
DATA BUFFER 
DATA IPARI1 
BYTE  >A,0 
BYTE 9,0,0,;0;0,0 


OPEN 


CONVERT PARAMETER FROM BINARY 
TO DECIMAL 
PUT DECIMAL NUMBER IN BUFFER 


ASCII,WRITE 


CLOSE 


BINARY TO DECIMAL CONVERSION 


Figure 4-2, Assembly Language Subroutine TEST 
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4.4.2.3 FTNCAL Macro 


The FTNCAL macro generates a call to the FORTRAN subroutine. The format of the call 
follows. 


FORMAT: 
FTNCAL S, (P1, .., Pn) 


In the above statement, S is the name of the FORTRAN subroutine and P1-Pn are para- 
meters. 


Figure 4-3 is an assembly language program TEST1 that calls a FORTRAN subroutine TEST2, 
figure 4-4, The macro FTNINT is used to pass the subroutine name and sets up the FORTRAN 
run-time initialization for the subroutine. The macro FTNCAL calls the FORTRAN subroutine 
and passes the name and two parameters to the FORTRAN subroutine. The subroutine TEST2 
writes the value of the two parameters and 'TEST COMPLETE’ on FORTRAN UNIT 17. 


UNL 
COPY MACRO 
LIST 
IDT “TESTI 
DXOP $vc,15 
TEST1 FTNINT TESTI 
FTNCAL TEST2, (IPAR1, IPAR2) 
SVC @ENDTSK 
ENDTSK BYTE 04 
IPARt DATA 1 
IPAR2 DATA 2 
END 


Figure 4-3. TEST2. Example of FTNINT, FTNCAL in an Assembly Language Programm 


SUBROWTINE TEST2(IPARIi, IPAR22) 
WRITE (17,370) IPARI1,IPAR22 


9O FORMAT (1X,1I4,1X,I4) 


WRITE (17,100) 

100 FORMAT (1X,’“TEST COMPLETE”) 
RETURN 
END 


Figure 4-4, TEST2. A FORTRAN Subroutine 
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4.4.3 Assembling Subprograms Containing Macros 


Macros are supported only by SDSMAC. If a macro is used in a program, the copy state- 
ment must be invoked to include the macro definition. 


The form of this statement follows. 


FORMAT: 
COPY pathname 


In the above statement, pathname is the pathname of the file containing the macro de- 
finitions. 


4.5 Program Link Edit of FORTRAN and Assembly Language Programs 


The link control file should conform with link edit standard format for FORTRAN. The following 
example gives the order of the INCLUDE statements in the link edit control file. 


INCLUDE (ACCESS NAME OF FORTRAN OBJECT OUTPUT) 
INCLUDE (ACCESS NAME OF SDSMAC OBJECT OUTPUT) 


NOTE: 
The FORTRAN object must be the first include in the control file. 


For additional link editing information, see paragraph 2.2.2. 
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A FORTRAN-78 COMPILER OUTPUT AND RUN-TIME ERROR MESSAGES 


A.1 General 


The FORTRAN-78 compiler translates programs from FORTRAN statements into execu- 
table machine language and produces two outputs: a listing of the FORTRAN program 
statements, and the linkable object code. 


A.2 Output Listing Elements 


The output listing of the FORTRAN-78 compiler consists of the following elements (if 
required). 


° Source program, error messages, and the total number of errors 


Common allocation - blank and/or labeled 
° Array allocation 

Equivalence allocation 

Scalar allocation 

Dummy argument allocation 

Subprograms called 

° Statement labels 


° Statement locations 


The top of each listing page produced by the FORTRAN compiler has a heading which 
gives the page number, compiler name, revision level, date and time of compilation, and 
user options selected. The listing itself is devided into three segments: the source listing 
(see figure A1), the allocation map (see figure A-2), and the program map (see figure A-3). 
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The source listing is a listing of the FORTRAN source statements. The source statements 
are numbered sequentially. If an error is detected by the compiler, an error or warning is 
indicated on the line following the source statement which caused it. The format of errors 
and warnings is described in paragraph A.3.1. 


The allocation map lists the addresses assigned to all the data structures defined in the 
program module. The allocation map is grouped according to the following allocation 
categories: common block allocation, array allocation, equivalence allocation, scalar 
allocation, and dummy argument allocation. Scalar allocation lists all variables not appear- 
ing in COMMON or EQUIVALENCE statements. The name of each allocation category pre- 
sent in the compilation is printed followed by a list of all the variable names declared in 
that category. Each variable name listed is accompanied by information describing the 
allocation address, number of bytes allocated, data type, and whether it is a scalar or 
array variable. There is a seperate heading for each common block declared in the pro- 
gram module. The heading for each common block provides the name of the common 
block, listed between slashes, and the total size of the common Diock. 


oo0o1 SUBROUTINE SORT(A,N) 

0002 CL DIMENSION ACN), TEMP (25),.DATA(100) 
0003 COMMON SCRATCH( 100) 

0004 EQUIVALENCE (BUFFER, TEMP) 
000s INTEGER INDEX1 

0006 INTEGER#4 INDEX2 

O007 LOGICAL YESNO(S) 

0008 COMPLEX ROCT1,ROOT2 

N00? FIXED(1O)FIX1L 

0o10 REAL#& TEMP, DOUBLE 

OoO11 CHARACTER#80 BUFFER 

0012 RECURSIVE IFAC 

0013 S50 po 100, INDEX1=1,10 

oo14 INDEX2=IFAC( INDEX1) 

oo1s 100 CALL suBIi 

OoO16 TEMP (1)=DOUBLE(A(1),A(2}?} 
0017 WRITE(46,1) 

oo1sg 1 FORMAT( “TEST 1017) 

O01? END 


Figure A-1. FORTRAN-78 Source Listing. 
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COMMON BLOCK/SBLANK/ ALLOCATION 0190 BYTES 
LOCN NAME MODE BYTES TYPE LOCN NAME MODE BYTES TYPE 


0000 SCRATC REAL 400 ARRAY 


ARRAY ALLOCATION 
LOCN NAME MODE BYTES TYPE LOCN NAME MODE BYTES ‘TYPE 


0030 DATA REAL 400 ARRAY 01CO YESNO LOGICAL 10 ARRAY 


EQUIVALENCE ALLOCATION 
LOIN NAME MODE BYTES TYPE LOCN NAME MOBE BYTES TYPE 


O1CA BUFFER CHARACTER 80 SCALAR O1CA TEMP DOUBLE 200 ARRAY 


SCALAR ALLOCATION 2 


LOCN NAME MODE BYTES TYPE LOCN NAME MODE BYTES. TYPE 


O2Z92 INDEX1 INTEGER#2 2 SCALAR 0274 INDEX2 INTEGER#4 4 SCALAR 


DUMMY ARGUMENT ALLOCATION 
LOCN NAME MODE BYTES TYPE LOCN NAME MODE BYTES TYPE 


0273 A REAL 2 ARRAY 029A N INTEGER#2 2 SCALAR 


<= 


Figure A-2, FORTRAN-~78 Allocation Map 
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SUBPROGRAMS CALLED 


NAME TYPE ARGS NAME TYPE ARGS NAME TYPE ARGS 
IFAC RECURSIVE 1 SUBI1 <= 2) DOUBLE DOUBLE a 
FSRWF RUNTIME FSRSIQ RUNTIME FSRREL RUNTIME 

FSROBL RUNTIME FSRCPX RUNTIME FSRGMY RUNTIME 

FSRODV RUNTIME FSXREC RUNTIME FSRITE RUNTIME 


FSRITP RUNTIME 


STATEMENT LARELS 


LOCN 


OQ02A 
0076 


LAREL USE LOCN LABEL USE LOCN LABEL USE 
So UNUSED 096A 100 BO END 0044 M2 


M3 a 0004 1 FORMAT 0076 MS 


STATEMENT LOCATIONS 


LINE LOCN LINE LOCN LINE LOCN LINE LOCN LINE LOCN LINE LOCN 


1 0000 2 OO1E 3 002A 4 oo2A 3 002A 6 002A" 
7 0024 $ 002A ? CO2A 10 002A 11 002A » Be 002A 
13 90028 14 Q04E 15 006A 16 0076 17 O0A2 13 OOBO 
19 OORO 

ENTRY=0010 


PROGRAM SIZE=O00B6 BYTES 
DATA SIZE=02A4 BYTES 
COMPILATION COMPLETE 

QO WARNINGS 

QO ERRORS 


Figure A~3. FORTRAN-78 Program Map 


The program map consists of four parts. The first is a list of all the subprograms referenced, 
the data type of the subprogram, and the number of arguments which it receives. If it is a 
recursive subprogram, the word RECURSIVE will be printed in place of the data type. If it is 
a subroutine subprogram, four dashes will be printed in place of the data type because sub- 
routines do not have an associated data type. The second part of the program map is a list 
of all the user-defined statement labels and the internal labels generated by the compiler. 
The label, its location, and its use (DO END, FORMAT, or UNUSED) are listed. The third part 
of the program map gives the memory location associated with each source statement in the 
program module. The last part of the program map is the compiler summary. The summary 
lists the entry point for the program module, the program area (PSEG) size, the data area 
(DSEG) size, and the number of errors and warnings detected. 
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A.3 Error Diagnostics and Messages 


Error diagnostics and messages are listed and explained in the paragraphs that follow, The 
topics covered are as follows. 


° Statement error diagnostics 
° Program error diagnostics 
° Run-time error diagnostics 


° Run-time error messages 


A.3.1 Statement Error Diagnostics 


During compilation, statements that violate the syntactic or semantic rules of the language are 
recognized and error indications are printed. There are two levels of statement diagnostics: 
warnings and errors. Warnings are issued for minor infractions where the compiler can still de- 
termine what is to be done and can compile the statement. Errors are severe violations of the 
language syntax. In the case of errors, compilation is terminated after all syntax checking is 
complete and no object code is produced for the program, 


One character of the statement is marked with a currency symbol "$" directly beneath the 
erroneous character, for example 


ZATA=HX+Y*-A 
$ 


indicates that the character "-" is an error. 


For a syntax error, the marked character itself was unacceptable, as in the previous example. 
For a semantic error, an identifier error or other construct error, the mark indicates the last 
character of the construct. For example, in the line 


COMMON ALPHA,BETA,ALPHA,GAMMA 
$ 


the mark indicates that the identifier ALPHA is misused. 


The compiler attempts all interpretations of statement type before discarding a statement. The 
marked position indicates the greatest amount of correct information found under the most 
logical assumption of statement type. 


A comment specifying the reason for the failure is output immediately following the marked 
line. There may be more than one diagnostic message per line. The diagnostic messages are 
listed from left to right. Each message is followed by a sequence of characters and E*E*,., 


or W*W*,.., indicating error or warning, respectively. An alphabetic list of possible statement 
diagnostic messages appears in table A-1. 


' 


Table A~1. FORTRAN-78 Compiler Statement Error Diagnostic Messages 


Message 


ARGUMENT CONVERTED W*W*W* 


ARGUMENT COUNT E*E*E* 


ARGUMENT TYPE CONFLICT W*W*W* 


ARRAY SIZE E*E*E* 


BLOCK DATA ONLY E*E*E* 


CONSTANT SIZE E*E*E* 


DATA TYPE E*E*E* 


DATA COUNT E*E*E* 


Meaning 


The type of the indicated parameter for an 
intrinsic function was converted to agree 
with the type required by the function, 


The number of parameters to a subprogram 
is wrong. The compiler detected the condi- 
tlon either because the function is an in- 
trinsic function or because the same sub- 
program was Called previously with a dif- 
ferent number of parameters. 


The type of a parameter to a subprogram 
conflicts with the type previously passed, 
(No conversion is done.) 


The program attempted to declare an array 
that has more elements than the maximum 
allowed, 


A DATA statement not ina BLOCK DATA 
subprogram attempted to initialize a 
variable in the COMMON area. 


- OF = 


An executable statement has been included 
in a BLOCK DATA subprogram, 


The indicated constant falls outside the al- 
lowable range for constants. Refer to the 
FORTRAN-78 Reference Manual. 


The type of a constant in a DATA state- 
ment does not agree with the type of the 
variables that it initializes, 


The number of variables in a DATA state- 
ment does not agree with the number of 
- - stants, 


Corrective Action 


Accept the conversion, select 
another intrinsic function or 
convert the parameter, 


Supply correct parameters, 


Make sure that is an inten- 
tional usage and not a program 
error, 


Correct array declaration to 3 
dimensions of less than available 
memory size in total elements. 


Move the offending DATA state- 
ment to a BLOCK DATA subpro- 
gram, or remove the variable from 
COMMON, 


Remove the indicated statement 
from the BLOCK DATA subprogram. 


Correct data to stay within allow- 
able limits. 


Change type of indicated constant 
or change type of its correspond- 
ing variables, 


Provide correct number of con- 
stants or variables, 
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Table A-1. FORTR..~—78 Compiler Statement Error Diagnostic Me 


Message 


DECLARATION CONFLICT E*E*E* 


DIMENSION RANGE E*E*E* 


DUPLICATE DUMMY E*E*E* 


DUPLICATE OPTION E*E*E* 


EXTRA COMMA W*W*W* 


FORMAT LABEL E*E*E* 


ILLEGAL DO CLOSE W*W*W* 


ILLEGAL LABEL E*E*E* 


ILLEGAL NUMBER E*E*E* 


JUMB LABEL E*E*E* 


Meaning 


The program attempted to declare an 
identifier as a FORTRAN entity (simple 
variable, array, subprogram, or statement 
function name) and that identifier has been 
previously used for a different purpose. 


An array dimension has been declared by 
the program that is outside the allowable 
range. 


A dummy variable has been declared more 
than once in a statement function defini- 
tion, FUNCTION, or SUBROUTINE statement. 


The program has stated on of the keyword 
options in an ACCEPT or DISPLAY state- 
ment more than once. 


The compiler encountered more than one 
comma ata point where it expected only a 
single comma. 


The indicated statement number was de- 
clared in the label field of a FORMAT state- 
ment and was used in the program for other 
than a format reference, 


A DO loop was closed with an illegal state- 
ment. 


A statement number in the program is 
greater than the five digit maximum, 


The indicated constant either overflowed or 
underflowed, 


The program used a statement number that 
is not a FORMAT statement to define a for- 
mat. 


ges (Continued) 
Corrective Action 


Select a new identifier. 


Correct the array dimension to 
prevent memory overflow. 


Remove redundant declarations, 


Remove redundant statements. 


Remove extra comments. 


Correct statement number refer— 
ence or assign statement number 
to correct item. 


Modify DO loop to include an exe- 
cutable statement in the last state- 
ment. 


Reduce statement number to five 
digits. 


Correct the indicated constant to 
remain within allowable limits, 


Correct statement number refer- 
ence to indicate the proper 
FORMAT statement. 


L/V 


Table A-1. FORTRAN-78 Compiler Statement Error Diagnostic Messages (Continued) 


Message 


LABEL MISSING W*W*W* 


MISSING COMMA W*W* Ww 


MISSING PROGRAM END W*W*W* 


MISUSED NAME E*E*E* 


MULTI DEFINED E*E*E* 


NOT ARRAY E*E*E* 


NOT INTEGER E*E*E* 


NUMBER OF SUBSCRIPTS E*E*E* 


ODD BYTE BOUNDARY E*E*E* 


Meaning 


The indicated statement cannot be exe- 
cuted because it has no statement number, 


The program is missing a comma at a point 
where the compiler expected to find one; 
however, the program compilation could 
continue. 


The last statement in the source file is not 
the END statement. 


The program uses an identifier in the wrong 
context, such as: 


° A dummy variable within a DATA or 
EQUIVALENCE statement. 


° A variable dimension that is not a simple 
dummy variable, 


° A subprogram name used without para- 
meters in an expression. 


A statement number has more than one 
statement assigned to it. 


The program used an identifier that is not 
an array name in an operation requiring an 
array. 


A variable or expression that is not an inte- 
ger type has been used where only an inte- 
ger type is allowed. 


The number of subscripts in an array refer- 
ence is incorrect. 


An attempt was made to initialize a char- 
acter array element which lies on an odd 
_e address, 


Corrective Action 


Assign a valid, unique statement. 
number to the indicated statement. 


Add a comma in the proper point. 


Insert the END statement at the 
end of the source file. 


Correct name, 


Ensure that all statements have 
unique statement numbers. 


Check identifier and insert the 
proper name, or correct operation 
so that an array is not required. 


Correct variable or expression to 
conform to the type required. 
Compare referense with array 


dimensions and resolve conflict. 


Initialize the array with character 
assignment statements instead, 
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Table A~1, FORTRAN-78 Compiler Statement Error Diagnostic Messages (Continued) 


Message 


RANGE E*E*E* 


STATEMENT NOT ALLOWED E*E*E* 


SYNTAX E*E*E* 


Meaning 


The first character in the declaration of an 
IMPLICIT range does not alphabetically pre- 
cede the second character. 


= OF< 


The (scale) of a FIXED declaration is out- 
side of the allowable range, 


= OF = 


A constant subscribt within an array refer- 
ence exceeds the range of subscribt values 
defined for that array. 


A statement has been used in an illegal 
context. 
- or - 


The program uses an illegal secondary 
statement in a logical IF. 


=- OF = 


A statement appears in the wrong order in the 
program (i.e., a statement function definition 


occurring after executable statements). 


Erroneous punctuation or illegally con- 
structed arithmetic expression, The char- 
acter marked in the output indicates how 
much of the statement that the compiler 
read before the statement could not be 
interpreted, 


Corrective Action 


R eorder the range declaration in 
alphabetical order, 


Adjust the (scale) specification 
to fall within -31 to +31, 


Change the constant subscribt to 
agree with the defined range. 


Correct statement usage. 


Correct punctation or arithmetic. 
expression. 


6/¥ 


= Table A-1. 
Message 


TYPE CONFLICT E*E*E* 


UNCLOSED BLOCK IF E*E*E* 


UNDIMENSIONED E*E*E* 


UNRECOGNIZABLE E*E*E* 


UNSUCCESSFUL COPY E*E*E* 


Meaning 


An IMPLICIT statement has declared a 
starting letter of an identifier to be of 
two different types. 


= Of = 


The types of the operands of an arithmetic 
or logical operator are illegal. 


= OF = 


The types of the right and left sides of an 
assignment are not compatible. 


A block IF statement is missing a corres- 
ponding END iF statement. 


A simple variable in the programm is fol- 
lowed by an open-parenthesis, (,which the 
compiler interpreted to be an attempt to 
use the variable as an array reference. 


The compiler could not recognize the entire 
statement. 


The compiler could not perform the re- 
quested COPY statement. 


FORTRAN-78 Compiler Statement Error Diagnostic Messages (Continued) 


Corrective Action 


Correct the IMPLICIT statement to 
define only one type for each 
starting character, 


Correct operands to agree with the 
requirements of the expression, 


Correct the assignment so that 
both sides are of the same type. 


Check the structure of the block IF 
statements to determine where the 
missing END IF should go. 


Remove the open-parenthesis from 


the statement, or dimension the 
simple variable as an array, 


Correct the statement. 


Ensure that the file name is correct; 
ensure that the file exists in the 


system library; ensure that an updated 


compiler is being used, 
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A.3.2. Program Error Diagnostics 


After the source program has been listed, the compiler lists summary error messages 
pertaining to the entire program. Table A-2 lists and defines these error messages, 


A.3.3. Run-time Error Diagnostics 


When the program is executed the run-time package produces a listing pertaining to any 
errors that may have occurred during execution. Tables A~3 and A-4 define these error 
messages. 


A.4 Object Code 


The object code preduced by the FORTRAN-78 compiler is in a relocatable format suit- 
able for input to the link editor program, 


The PROGRAM ID is taken from the name of the main program, function subprogram, 
subroutine subprogram, or block data subprogram. The compiler allows six-—character 
names for these subprograms. When the name is less than six characters long, the right- 
most vacant characters are replaced with spaces. Thus, a FORTRAN program heading 
SUBROUTINE SORT (A,N) will yield a subprogram named SORTbb, where 'b’ signifies 
space or blank. When the program name exceeds six characters, only the first six are 
used to identify the program; main programs without a specific name are called $MAIN 
by default. Block data subprograms without a specific name are called $BLOCK by 
default. 


Labeled common names are derived in the same way. The common area which the pro- 
grammer does not name is named $BLANK by the compiler. 


For each program module or subprogram, the compiler also reserves a block of storage 

for storing workspace pointer, local variables, temporary variables, and dummy parameters. 
The compiler labels each block, $DATA, and assigns the storage area directly following 

the area containing the program for which it was created. The $DATA segment is created 
for use by the link editor to provide relocatable storage for the program parameters. 


Table A-2, FORTRAN-78 Compiler Program Error Diagnostic Messages 


Message 


ALLOCATION ERRORS 


CANNOT ALLOCATE TEMPORARY FILE 


COMPILER BUG COLLAPSE PHASE 


COMPILER BUG GEN PHASE 


Meaning 


Following this heading, the compiler lists 

the identifiers that the program incorrectly 
assigned memory locations, These errors 
occur in either COMMON or EQUIVALENCE 
statements in the program and are the result 
of errors such as: 


° Using an EQUIVALENCE statement to 
equate variables from different blocks of 
COMMON. 


° An attempt to extend a COMMON block 
backwards, 


° Attempting to perform an impossible 
EQUIVALENCE. 


° Attempting to equivalence a symbol toa 
character array element which lies on an 
odd byte address, 


The disk space is not available to create one 
or both of the temporary files required during 
compilation. 


The compiler was unable to complete the 
compilation due to a problem internal to the 
compiler, 


The compiler was unable to begin the com- 
pilation due to a problem internal to the 
compiler, 


Corrective Action 


Examine identifiers in COMMON 
and EQUIVALENCE statements 
and correct erroneous condition. 


Delete unnecessary files from disk, 
or otherwise create additional disk 
space. 


System compiler errors require the 


attention of the system programmer. 


System compiler errors require the 
attention of the system programmer. 
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Table A-2, FORTRAN-78 Compiler Program Error Diagnostic Messages (Continued) 


Message 


COMPILER POINTER OVERFLOW 


COMPILER PROGRAM OVERFLOW 


COMPILER ROLL MEMORY OVERFLOW 


FATAL ERROR, END VECTOR TAKEN 


CODE=X 


FORTRAN COMPILER NORMAL 
COMPLETION 


FUNCTION NAME NOT REFERENCED 


LIBRARY 1/0 ERROR CODE=XXXX 


Meaning 


Insufficient memory space is available for 
the pointer. More than 1023 of one type of 
item, i.e., labels, arrays, scalars, etc. 


Insufficient memory space is available for 
storing the program, © 


Insufficient memory space is available for 
the roll memory used during compilation. 


The operating system has detected a fatal 
error and has terminated the compiler task. 


The compiler has successfully completed 
creating the object module from the supplied 
source program, 


The name of the FUNCTION subprogram 
that this message follows has not been refer- 
enced in the program, 


A library error has occurred with one of the 
1/O devices; the code XXXX defines the type 
of error. 


Corrective Action 


Decrease number of items of that 
type, which can only be deter- 
mined by careful scrutiny of the 
source program, The best action 
may be to divide the program into 
smaller segments, 


Increase requested memory size 
for the compilation. 


Increase requested memory size 
for the compilation. 

- or- 
Delete the X (variable cross- 
reference list) option. 


Refer to the TAXO Error Reporting 


and Recovery for the corresponding 
reason for error code X (task error code). 


Continue with program prepara- 
tion. 


Correct program to correctly refer- 


ence the FUNCTION name, or delete 


the subprogram as unused, 


Consult TAXO Error Reporting and 
Recovery to determine the cause 
associated with code XXXX. 


EL/V 


Table A-2, FORTRAN-78 Compiler Program Error Diagnostic Messages (Continued) 


Message 


OPEN DO LOOPS 


REGION NOT AVAILABLE 


STORAGE OVERFLOW 


TOO MANY NESTED COPIES 


UNDEFINED LABELS 


Meaning 


Following this message, the compiler lists 

the DO loops in the program that do not pro- 
vide for an exit from the loop, The list is In 
the form: 


statement number OPENED AT LINE line- 
number 


where line-number is the output listing line 
number, 


The memory resources of the system are not 
sufficient to provide the quantity of memory 
requested, 


This message indicates that a block of 
memory, either COMMON or noncommon, 
has become larger than the available 
memory in the system. 


Copy statements have been nested deeper 
than five levels. 


Following this message, the compiler lists 
the statement numbers of statements that 
have not been defined in the porgram, The 
list is in the form: 


statement number FIRST REFED AT LINE 
line-number 


where line-number is the output listing line 
number of the statement that first references 
the undefined statement. 


Corrective Action 


Restructure DO loop to provide a 
termination point. 


Reduce memory requested for 
compilation. 


Restructure program to require a 
smaller block of memory. 


Reduce the level of nesting to five 
or less, 


Correct erroneous reference, or 
provide a statement corresponding 
to the label. 
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Table A~2. FORTRAN-78 Compiler Program Error Diagnostic Messages (Continued) 


Message Meaning Corrective Action 
WARNING - INVALID COMPILER One or more of the selected compiler option Correct invalid option character 
OPTION CODE=XXXX characters entered for this compilation is (compiler will function properly 
not a recognized option character. The code ___ without correction, but will not act 
indicates the hexadecimal code (ASCII) for on the invalid option). 


the invalid character. 


Table A-3. FORTRAN-78 Run-time Package Diagnostic Messages 
Message Meaning Corrective Action 


INSUFFICIENT PRB SPACE The system table space of the operating sys- Reduce the number of FORTRAN 
tem is inadequate for the number of Physical units assigned. 
Record Blocks (PRBs) required for the 1/O 
units assigned in the program, 


- Or - 
Regenerate the operating system 
with an expanded table space 


reserved for the FORTRAN run- 
time package.* 


SL/¥ 


Table A-3. FORTRAN-78 Run-time Package Diagnostic Messages (Continued) 


Message 


LIBRARY I/O ERROR CODE=XXXX 


NORMAL PROGRAM COMPLETION 


TOO MANY UNIT ASSIGNMENTS 


WARNING - BACKSPACE AFTER 
REWIND UNIT=unit number** 


WARNING - DEFINED LOGICAL 
RECORD 

LENGTH>CREATED LOGICAL RECORD 
LENGTH,.TRUNCATED 


WARNING - LOGICAL RECORD LENGTH 
MAX BUFFER SIZE. 
TRUNCATED UNIT=unit number** 


Meaning 


A library error has occurred with one of the 
1/O devices; the code XXXX defines the type 
of error. 


The program has successfully completed 
execution. 


The system table space of the operating sys- 
tem is inadequate for the number of units as- 
signed in the FORTRAN program, 


The program includes a series of |/O com- 
mands that requests the indicated unit to 
perform a backspace operation after it has 
been rewound to the beginning of the file. 
The unit number parameter is the FORTRAN 
unit number assigned to the device in the 
program. 


The logical record length specified upon 
creation is less than the logical record 
length specified by the OPEN statement. 


The logical record lenght specified for the in- 
dicated FORTRAN 1/0 unit is greater than the 
maximum allowable buffer size of 288 
characters; characters in excess of 288 will 
not be recorgnized or printed. 


Corrective Action 


Consult the TAXO Error Reporting 
and Recovery to determine the 


cause associated with code XXXX. 


None required, 


Reduce the number of FORTRAN 
units assigned. 


Ot 


Expand the table space reserved 
for the FORTRAN-78 run-time 
package.* 


Restructure |/O commands to 
eliminate erroneous condition. 


Recreate the file with a suf- 
ficiently large logical record 
length. 


Reformat logical records to re- 
main within the maximum buffer 
size of 288 characters, 
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Table A-3, FORTRAN-78 Run-time Package Diagnostic Messages (Continued) 


Message Meaning Corrective Action 
WARNING - REDUNDANT BUFFER I/O The program includes a series of buffer 1/O Restructure 1/O sequence or de- 
STATUS CHECK UNIT=unit number** routines that checks the status of a unit lete redundant IUNIT status 
twice without initiating a BUFIN ora check, 
BUFOUT call, 


* Expanding the table space requires a copy of the source code for the FORTRAN-78 run-time package. See paragraph 3.3.2. 


** Unit number is the hexadecimal value of the logical number. 


LL/¥ 
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A.5 Run-time Error Traceback Information 


The standard subprogram linkage creates a linked list of information concerning active sub- 
program calls. This list provides debugging information to the FORTRAN run-time package. 
When it detects an error, the run-time package prints the following information on the list- 
ing device to aid in debugging. 

° An error message to indicate the type of error that occurred 

° The FORTRAN routine that produced the error 

° The location of the CALL for the routine 

° The location of other, higher-level nested CALLs 
For example, the run-time error message: 

FLOATING POINT,DIVIDE BY ZERO ERROR AT > 001A TRACE3 


CALLED AT > 0014 IN TRACE2 
CALLED AT > 0014 IN $MAIN 


indicates that an error occured in statement location 001A in subroutine TRACE3, that TRACES 
was called at statement location 0014 in TRACE2, and that TRACE2 was called at statement 
location 0014 in the main program $MAIN. Run-time error messages produce the relative address 
and the module where the error occurred. Table A-4 contains a list of run-time errors. 


The following data structures provide the traceback facility. 


° The BLWP instruction automatically threads the calls by storing the previous 
workspace pointer and program counter in registers 13 and 14 of each workspace. 


° The 16 words of each workspace are immediately followed by three words of traceback 
information. 


- A pointer to a six-character program name 
- The entry address of the first instruction to be executed in the program 
- The type of the program indicated by the following values. 

0 = Main program (top Jevel) 

1 = FORTRAN subprogram 


2 = Recursive FORTRAN subprogram 
3 = FORTRAN run-time routine (skipped in traceback listing) 
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Table A-4, FORTRAN-78 Run-time Error Messages 


Operation 


BACKSPACE* 
END FILE* 
REWIND* 


BUFIN* 
BUFOUT* 
JUNIT* 


DEFINE FILE* 
FIND* 
OPEN* 


END VECTOR TAKEN 


FLOATING POINT 


FORMATTED 


SVC 


SUBPROGRAM 


A/19 


Error 


ILLEGAL OPERATION 
ILLEGAL UNIT 
vO 


ILLEGAL UNIT 
ILLEGAL OPERATION 
FILE PREVIOUSLY OPEN 


INCORRECT NUMBER OF ARGUMENTS 


ILLEGAL UNIT 

ILLEGAL OPERATION 
END OF FILE 

FILE PREVIOUSLY OPEN 
ie) 


DIVIDE BY ZERO 
ILLEGAL CODE 
ILLEGAL INSTRUCTION 
OVERFLOW 
UNDERFLOW 


END OF FILE 

FILE PREVIOUSLY OPENED 
ILLEGAL COUNT 

ILLEGAL FORMAT CHARACTER 
ILLEGAL INPUT CHARACTER 
ILLEGAL OPERATION 
ILLEGAL REPEAT COUNT 
ILLEGAL UNIT 

INTEGER INPUT OVERFLOW 
vO 

NO CONVERSION 
NUMERIC/LOGICAL 
CHARACTER 

PAREN MISMATCH 

PAREN NESTING >3 

REAL INPUT OVERFLOW 


ILLEGAL SVC CALL 


INCORRECT NUMBER OF 
ARGUMENTS 
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Table A-4, FORTRAN-78 Run-time Error Messages (Continued) 


Operation Error 
UNFORMATTED ILLEGAL UNIT 

ILLEGAL OPERATION 

END OF FILE 

FILE PREVIOUSLY OPEN 

vO 
FUNCTION NAME ARGUMENT TOO LARGE 


BOTH ARGUMENTS ZERO 

DIVISION BY ZERO 

INCORRECT NUMBER OF ARGUMENTS 
NEGATIVE ARGUMENT 


OVERFLOW 
SINGULARITY 
RECURSIVE DATA AREA ALLOCATION 
ARRAY SUBSCRIPT OUT OF BOUNDS 
TASK TERMINATED NONRECOVERABLE MEMORY PARITY ERROR 


TRIED TO EXECUTE AN UNDEFINED INSTRUCTION 

ACCESSED AN ILLEGAL TILINE ADDRESS 

ILLEGAL SUPERVISOR CALL CODE 

TRIED TO ACCESS AN ADDRESS OUTSIDE OF THE 
TASK MEMORY AREA 

TRIED TO EXECUTE A PRIVILEGED INSTRUCTION 

TERMINATED BY A KILL TASK 

INSTALLED MEMORY CONFIGURATION IS TOO SMALL 
TO LOAD TASK 

MAP SEGMENT NOT PRESENT IN MEMORY 

EXECUTE PROTECTION VIOLATION 

WROTE TO A WRITE PROTECTED SEGMENT 

STACK OVERFLOW 

HARDWARE BREAKPOINT ADDRESS ERROR 

TIME OUT ERROR 

OVERFLOW PROTECTION VIOLATION 


Following the error message, the memory status is 
displayed as follows. 


WP = xxxx PC = xxxx <PC> = xxxx ST = xxxx 
WORKSPACE REGISTERS 


Q- 7 XxXxXxX XXXX XXXX XXXX XXXX XXXK XXXX XXXX 
8 - 15 xxxx XXXX XXXX XXXX XXXX XXXX XXXX XXXX 


* This operation message could result in any of the associated error types. 
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B LOGICAL AND PHYSICAL RECORD CHARACTERISTICS 


The input/output record formats associated with the FORTRAN READ, WRITE, REWIND, 
BACKSPACE, and ENDFILE statements and the BUFOUT subroutine are described in the 
following paragraphs. These descriptions apply to sequential and relative record files only. 
For a discussion of input/output record formats for multiple key indexed files, refer to 
Operators's Manual Il. 


A FORTRAN logical record is a unit of data that contains one or more FORTRAN phy- 
sical records. To compute the logical record lentgh (LRECL) in bytes for formatted I/O, 
mulitply the LRECL in words by 2, To compute the LRECL in bytes for unformatted I/O, 
multiply the LRECL in words by 2 and add 2 for a control word. 


A relative record file has one physical record in a logical record, and a sequential file 
has one or more physical records in a logical word. 


The maximum FORTRAN buffer size is 288 bytes. Additional information about the |/O 
buffer may be found in paragraph 3.3.3. 


Each unformatted WRITE statement produces one logical record consisting of one or more 
physical records. The first word of each physical record contains a zero, and the last 
physical record of the logical record contains a nonzero count. The count in the last phy- 
sical record indicates the number of physical records in the logical record, If the physical 
record count is positive, the file is an ASCII file. If the count is negative, the file is an 


unformatted file. The physical record count is used in the execution of the BACKSPACE 
statement. 


For a sequential file, the logical record can be any size since the length is dependent on 
the amount of data written to the file. The logical record is devided into physical records 
288 bytes in length when using READ and WRITE statement. When using BUFOUT, the 
physical record length may be any size. 


When using relative record files, an OPEN statement is required. Since the maximum buffer 
size is 288 bytes, the largest usable logical record length in the OPEN statement is 288 bytes, 
If the specified logical record length is greater than 288 bytes, only 288 bytes are trans- 
ferred for a READ or WRITE operation. A truncation warning message is issued if the LRECL 


specified in the OPEN statement is greater than 288 bytes, or if the defined LRECL exceeds 
the created LRECL. 


When using the TAXO operating system, a realitve record file can be created at run-time. 
The file will be noncontiguous and have a physical record length of 864 bytes. To create 
the file before execution, use the System Command Interpreter (SCI) command for creating 
relative record files. For efficient use of disk space and faster random access, the physical 
record length should be evenly divisible by the FORTRAN logical record length. 


Attempts to read or write unformatted records on printing devices result in an error condi- 
tion and control is returned to the operating system. Attempts to read from a device which 
cannot read and attempts to write on a device which cannot write also result in an error 

condition and a return to the system. However, use of the ERR=S1 specification in the |/O 


statement preempts the return of control to the operating system and transfers control to 
the indicated statement number. 
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C VALID FORTRAN-78 I/O OPERATIONS 


When working with FORTRAN-78 I/O operations at a particular unit number, only certain 
operation can follow a given operation. Table C-1 may be used to validate TAXO FORTRAN 
operations. Given the last operation, the table indicates if the current operation is valid. 

For example, a WRITE operation followed by a READ operation causes an error described 

in the FORTRAN-78 Reference Manual. The error type is an illegal operation. 


TABLE C-1. Validate TAXO FORTRAN I/O Operations 


CURRENT OPERATION IS 


R' Ww R S E 8 3 

D R Ww cS re) \ T 

cS 7 ) Pp F fe) cS 
L 
A ee zs 2© ® @&@ @® @ © @ 
: RDS * YES YES YES YES YES ERR ERR- * 
‘e WAT * ERR YES EOF EOF YES ERR ERR * 
4 RWD +» YES YES YES WA YES YES YES « 
: BSP . YES YES YES YES YES YES YES , 
T EOF "ERR YES YES YES YES YES YES - 
. BIO : ERR ERR ERR ERR ERR ERR Yes * 
a BTS * ERR ERR YES YES YES YES WR2 * 
A eee ek ee we ee ee ~~“ 2 ewe ee te we & Pee e_nwvee ea ee 7 2 @ € 
s 


“Reading an EOF while using the END = record number option does not cause an error on 
reads or write. 
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Table C-1. Validate TAXO FORTRAN I/O Operations (Continued) 


RDS 
WRT 
RWD 
BSP 
EOF 
BIO 
BTS 


YES 

ERR 
EOF 
WR1 
WR2 


Operations 


READ 
WRITE 
REWIND 


- BACKSPACE 


END OF FILE 
BUFFER |/O(BUFIN/BUFOUT) 
BUFFER W/O STATUS CHECK(IUNIT) 


Operation Results 


Operation is performed. 

Operation is not allowed. 

An end of file is generated. 
Warning, backspace after rewind. 
Warning, redundant buffer I/O status 
check. 
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D MULTIPLE KEY INDEXED FILE HANDLER 


The multiple key indexed file handler is an assembly language routine which provides 
access to TAXO multiple key indexed files from a FORTRAN program, There are 21 
entry points to this routine, each of which performs a different function on multiple 
key indexed files. Depending on the entry point called, different argument lists are 
required to be passed by the user. The following list describes the arguments required 
by the multiple key indexed file handler. 

° BLOCK - This argument is declared as an INTEGER*2 array dimensioned to have 
seven elements. The user must initialize the fifth element of this array with the 
value of the record length of the key indexed file. Also note that a seperate array 
is required for each multiple key indexed file accessed in a program. This is used 
to hold the multiple key indexed file SVC call block. 


EXAMPLE; 


INTEGER BLOCKA(7) ,BLOCKB(7) 
DATA BLOCKA(5)/80/,BLOCKB(5)/132/ 


CURR - This argument is declared as an INTEGER*2 array dimensioned to have ten 
elements. A seperate array is required for each key in each multiple key indexed file 
accessed in a program. The first element of this array must be initialized with the 


number of the key to which it corresponds. This array is used to hold the currency 
block for each key. 


EXAMPLE; 


INTEGER CURRA1(10),CURRA2(10), CURRA3(10), CURRA4(10) 
INTEGER CURRB1(10),CURRB2(10) 


DATA CURRA1(1)/1/,CURRA2(1)/2/,CURRA3(1)/3/ 
DATA CURRAA4(1)/4/ 


DATA CURRB1(1)/1/,CURRB2(1)/2/ 


PATH = This argument is declared as a CHARACTER variable large enough to hold 
. the ASCII representation of the multiple key indexed file pathname. 


EXAMPLE: 


CHARACTER PATHA*16,PATHB*21 
DATA PATHA/’VOL.DIR.KEYFILE17/ 
DATA PATHB/’TRID32.DIREC.DATABASE’/ 
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NUM - This argument is declared as an INTEGER*2 variable which holds the length 
in characters of the multiple key indexed file pathname. 
EXAMPLE; 


INTEGER NUMA,NUMB 
DATA NUM/16/,NUMB/21/ 


BUFFER - This argument is declared as a CHARACTER variable large enough to hoid 
a logica! record from the multiple key indexed file. 


EXAMPLE: 
CHARACTER BUFFA*80,BUFFB* 128 
KEYBUF - This argument is declared as a CHARACTER variable large enough to hold 
the ASCII representation of the key value being used. 
EXAMPLE: 
CHARACTER*128 KEYBUF 
KEYSIZ - This argument is declared as an INTEGER*2 value that represents the 


length of a truncated key value. 


ACCESS - This argument is declared as an integer value that determines the access 


method to.be used in communicating with a multiple key indexed file. The set of possi- 


ble values iss 


Exclusive Write = 0 
Exclusive All = 8 
Shared = 16 
Read-Only = 24 


After each multiple key indexed file operation, the operating system returns information that 
indicates the results of the operation. The status code is an 8-bit value thai indicates a serious 
error in the key file operation. This value is found in the lower half of the first element in array 
BLOCK of the file being used. This value can be obtained on return from any multiple key 
indexed file call with the following statements: 


ISTAT = LAND(BLOCK(1),>FF) 
BLOCK(1) = LAND(BLOCK(1),>FFO0) 
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The first statement moves the status code into variable ISTAT, and the second statement 
clears the status code for the next operation. Refer to Operator's Manual Il for a list of 
the possible status code values. Another code returned after an operation is the infor- 
mative code. This code is an 8-bit value which describes conditions which can arise in 
normal multiple key indexed file operations. This value is found in the upper half of the 
first element in array CURR of the key being used. This value can be obtained after a 
multiple key indexed file call with the following statements: 


INFORM = ISHFT(LAND(CURR(1),>FF00),-8) 
CURR(1) = LAND(CURR(1),>FF) 


The first statement moves the informative code into the !ower half of variable INFORM, 
and the second statement clears the informative code for the next operation. The pos- 
sible values returned in the informative code may be found in Operator's Manual Il. 
The following list of multiple key indexed file operations corresponds exactly with the 


list of operations given in Operator's Manual Il. The user should read carefully through 


the TAXO operating system documentation before attempting to use multiple key in- 
dexed files. 


° Close file: 
- CALL XCLOSE(BLOCK) 
° Read file characteristics: 
- CALL XRDCHR(BLOCK,BUFFER) 
Change access privileges: 
- CALL XCNGAC(BLOCK,ACCESS) 
° Open random: 
- CALL XOPNRN(BLOCK,ACCESS,PATH,NUM) 
Read by key, unlocked: 


- CALL URDKEY(BLOCK,BUFFER,CURR,KEYBUF) 


Read by key, with lock: 
- CALL LRDKEY(BLOCK,BUFFER,CURR,KEYBUF) 
Read current, unlocked: 


- CALL URDCUR(BLOCK,BUFFER,CURR) 
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Read current, with lock: 

~ CALL LROCUR(BLOCK,BUFFER,CURR) 
Read by primary key, unlocked: 

- CALL URDPRM(BLOCK,BUFFER,CURR,KEYBUF) 
Read by primary key, with lock: 

- CALL LRDPRM(BLOCK,BUFFER,CURR,KEYBUF) 
Read next, unlocked: 

- CALL URDNXT(BLOCK,BUFFER,CURR) 
Read next, with lock: 

- CALL LRDNXT(BLOCK,BUFFER,CURR) 
Insert record into file: 

- CALL XINSRT(BLOCK,BUFFER,CURR) 
Rewrite and leave locked: 

- CALL LREWRT(BLOCK,BUFFER,CURR) 
Rewrite with unlock: 

- CALL UREWRT(BLOCK,BUFFER,CURR) 
Delete by key: 

- CALL KDLETE(BLOCK,CURR,KEYBUF) 
Delete by currency: 

- CALL CDLETE(BLOCK,CURR) 

Unlock by currency: 

- CALL CUNLOK(BLOCK,CURR) 

Set currency equal: 


- CALL SCUREQ(BLOCK,CURR,KEYBUF,KEYSIZ) 
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° Set currency equal or greater: 
- CALL SCUREG(BLOCK,CURR,KEYBUF,KEYSIZ) 
° Set currency greater: 


- CALL SCURGT(BLOCK,CURR,KEYBUF,KEYSIZ) 


The following is an example program showing how to use the multiple key indexed file utility. 


THIS PROGRAM MANIPULATES A KEY-INDEX FILE WHICH CONTAINS 
A CUSTOMER ACCOUNTS DATABASE, USING THE FORTRAN KEY-INDEX 
FILE UTILITY SUBROUTINES. 


% KO 


* 


THE LAYOUT OF THE FILE IS: 


1) ACCOUNT NUMBER L=6 

2) CUSTOMER NAME 7-26 
3) STREET ADDRESS 27-46 
4) CITY 47-56 
3S) STATE 57-53 
6) ZIP CODE 59-63 
7) AMOUNT ORDERED( S$) 64-70 


Ke OK ROR OK 


ALL OF THE FIELDS ARE VALID KEYS FOR THE FILE. THE PROGRAM 
REQUESTS THE USER TO SPECIFY ONE OF THREE OPERATIONS. THEY 
ARE: FIND, DELETE, AND INSERT. THE KEY FOR THE OPERATION IS 
THEN REQUESTED, AND THE RESULTS OF THE OPERATION ARE DISPLAYED. 


i 


##e24 DATA DECLARATIONS 


| CHARACTER PATH#49, BUFFER#*70, KEYBUF#22, ZIP#5, CUSTOMER#20, 
STREET#20, CITY#10, STATE#2, ACCOUNT#4 , AMOUNT#7 , 
IOP#6, ASK#3 

INTEGER BLOCK(7), CURR(10) 


+ + 


weeexe OPEN KEY-INDEX FILE WITH EXCLUSIVE-ALL PRIVELEGES 


BLOCK(S) = 70 

PATH = “SUSTO001.UID.JEMO37.KIF” 
NUM = LENGTH( PATH, 49 ) 

CALL XOPNRN¢ BLOCK, S&S, PATH, NUM ) 
ASSIGN 100 TO LABEL 

GOTO 1000 
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WH 


100 


110 


HHHHH 


120 


HHH 


HHH 


130 


WHEE 


160 
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OUTPUT PROGRAM I.D. 

CALL WAIT(7,2,IDUM) 

DISPLAY (9, 110,ERASE,LINE=5, FPOSITIOQN=25) 

FORMAT (“ABC CORPORATION CUSTOMER ACCOUNTS UTIL 
SELECT OPERATION 

DISPLAY (9, 120,LINE=S, POSITION=15) 

FORMAT(“SELECT OPERATION( FIND, DELETE, INSERT 

ACCEPT (9, (A)~“,LINE=8,POSITION=62; PROMPT ) IOP 
LOOKUP TYPE OPERATIONS ( FIND OR DELETE ) 


IF (( IOP.EQ.°FIND’ ).OR.( IOP.EQ.”DELETE” )) 


GET KEY NUMBER AND VALUE 
DISPLAY( 9,130,LINE=10,POSITION=15) 
FORMAT( “ENTER KEY NUMBER AND KEY VALUE 
ACCEPT( 9,°(1I1)%,LINE=10,F0SITION=32, PROMPT 
ACCEPT( 9,°(A)% »LINE=10,POSITION=50, PROMPT 
ISSUE CALL TO FIND RECORD 
CALL URDKEY( BLOCK, BUFFER, CURR, KEYBUF ) 
ASSIGN 140 TO LABEL 
GOTO 1000 
CHECK IF RECORD EXISTS 
IF( INFORM.EQ.>BS ) THEN 


DISPLAY( 9,150,LINE=15,POSITION=10) 
FORMAT( “NO SUCH RECORD EXISTS IN FILE” 


DECODE FIELDS AND DISPLAY FORMATTED RECORD 


ELSE 


LTY~ > 


2 END )”%) 


THEN 


-) 
> CURR(1L 
) KEYBUF 


) 


) 


READ( BUFFER,155 ) ACCOUNT, CUSTOMER, STREET, CITY>» 


STATE, ZIP, AMOUNT 
FORMAT( AxA2A»A: A, ADA ) 


DISPLAY( 9,1460,LINE=12,POSITION=1) ACCOUNT, CUSTO 


STREE 
ZIP; 
FORMAT (A> 1X21A»1X2Ax1X3As1X,A+1XsA21X2A) 


T» CITY, 
AMOUNT 


MER, 
STATE: 
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442% CHECK FOR DELETION 
IF( IOP.EQ.“DELETE’ ) THEN 
DISPLAY( 9,170,LINE=14,POSITION=10 ) 
170 FORMAT( “DELETE THIS RECORD?” ) 


ACCEPT( 9,°{A)“»LINE=14,POSITION=30,PROMPT) ASK 
IF( ASK.EQ@.”“YES’ ) CALL CDLETE( BLOCK, CURR ) 


ENDIF 
ENDIF 
##eee INSERT A RECORD 
ELSE IF( IOP.EQ.”INSERT” ) THEN 


DISPLAY( 9,190,LINE=10,POSITION=10) 


130 FORMAT( “ENTER THE REQUIRED FIELDS’,//,“ACCOUNT NUMBER’, 
+ /,°CUSTOMER NAME’,/,°“STREET ADDRESS’,/,°CITY“,/, 
+ “STATE’,/,°“ZIP CODE’,/,”AMOUNT ORDERED(S$)~” ) 


ACCEPT( 9,°(A)%,LINE=12,POQSITIOQN=28,PROMPT ) ACCOUNT 
ACCEPT( 9,%(A)%,LINE=13,PO0SITION=23,PROMPT ) CUSTOMER 
ACCEPT( 9,°(A)%,LINE=14,P0OSITION=28,PROMPT ) STREET 
ACCEPT( ?,°(A)“,LINE=15,POSITION=23,PROMPT ) CITY 
ACCEPT( 9,°(A)~“,LINE=16,POSITION=23,PROMPT ) STATE 
ACCEPT( 9,7 (A)~“,LINE=17,POSITION=23,PROMPT ) ZIP 

ACCEPT( 9,°(A)“,LINE=13,POSITION=28,PROQMPT ) AMOUNT 


eeeee ENCODE FIELDS AND INSERT RECORD 


WRITE( BUFFER, 155 ) ACCOUNT, CUSTOMER, STREET,CITY, 
+ STATE, ZIP», AMOUNT 

CURR(1) = 1 

CALL XINSRT( BLOCK, BUFFER, CURR ) 

ASSIGN 190 TO LABEL 


GOTO 1000 
190 IF( INFORM.EQ.>B4 ) THEN 
DISPLAY( %,200,LINE=20,POSITION=20 ) 
200 FORMAT( “DUPLICATE RECORD NOT ALLOWED’ ) 
ELSE 
DISPLAY( 9,210,LINE=20,POSITION=20 ) 
210 FORMAT( “RECORD HAS BEEN INSERTED’ ) 
ENDIF 
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#eeHe TERMINATE PROGRAM 
ELSE IF( IOP.EQ.”’END’ ) THEN 
CALL XCLOSE( BLOCK ) 
DISPLAY( 9,220,LINE=22,P0SITION=10) 
220 FORMAT( “ABC CORP. CUSTOMER ACCOUNTS UTILITY NORMAL7, 
+ * TERMINATION’ >) 
CALL WAIT( 10,2,IDUM ) 
GOTO 7999 
ENDIF 
eeeee GO PROCESS NEXT INPUT 
GOTO 100 
Heeee PROCEDURE TO CHECK STATUS 


1000 ISTAT = LAND( BLOCK(1) » OFF ) 
BLOCK(1) = LAND( BLOCK(1) » SFFOO ) 


suse TERMINATE ON FATAL ERROR 


IF( ISTAT.NE.O ) THEN al 
DISPLAY( 9,1010,LINE=20,POSITION=10 ) ISTAT 
1010 FORMAT( 10X;“KEY-INDEX FILE ERROR, STATUS CODE= >7”,2Z2, 
+ /,“ABC CORP. CUSTOMER ACODUNTS UTILITY ABNORMAL” 
+ * TERMINATION’ ) 
CALL WAIT( 10,2, IDUM ) 
GOTO 99?7 
ENDIF 


INFORM = ISHFT( LAND( CURR(1),>FFOO ),-3 ) 
CURR(1) = LAND( CURR(1),>FF ) 
GOTO LABEL 

eee EXIT PROGRAM 


P99F END 
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Fortr./Us.Guide /0982/e 


TRIUMPH ADLER 


1/ill 


4-19; 4-28 
4-19; 4-25 
4-19; 4-25 
4-23 

4-23 

4-19 

4-29 

4-19 

4-22 

4-19 

4-25 

2-8 


Appendix A 
Appendix A 
3-9 


Appendix C 
Appendix C 


Appendix A 
2-4 
4-14 


3-1; 3-2 


3-2 
2-7; 3-1 


4-23 
Appendix B 


Appendix A 
1-1 

1-1 

1-1 

2-19 


Receiving Sequences 
Assembly Language 
Recursive Subprogram 
Standard Subprogram 
RECSKP Calling Sequence 
Recursive Subprogram: 
Calling Sequences 
Receiving Sequences 
Relative Record Files 
Replacing Standard Modules 
with Modified Modules 
Replicatable Task Installation 
REWIND Calling Sequence 
ROM Loader 

Run-Time: 

Directories 

Directory, Standard 

Error: 

Diagnostics 

Messages 

Traceback Information 
Run-Time Library 

Run-Time Modules, Modifying 
Run-Time Subprogram 
Calling Sequences 


SALOBJ Directory 
SBS Command 
Sequential Files 


Shared Global Common Link Edit 


Shared Procedure: 
Installation 
Link Edit 


Show Background Status Command 


Single Task: 
Installation 


Link Edit 


Source Code, Assembly Language 


Source Program 

Source Program Preparation 
Source Programs, Free Format 
Standard Run-Time Directory 
Standard Subprogram: 
Calling Sequences 
Receiving Sequences 
Stand-Alone: 

Directory 

Link Edit 

Stand-Alone Program: 
Execution 

Installation 

Statement: 

Error Diagnostics 

FUNCTION 

SUBROUTINE 

STLOBJ Directory 
Subprogram, Block Data 
Subroutine: 

MAIN 

Statement 


2-12; 3-1; 


4-16 
han 
4-18 
417 
4m 15 


4-2 
4-18 
Appendix B 


2~12 
2-14 
4m 16 
2-15; 2-18 


3-1 
2-7 
Appendix A 
Appendix A 
Appendix A 


1-1 
3-2 


43 

er 

2 
Appendix 
2-9 


2 

-2 
B 

2-15 
an 


ho 
417 


2-12; 3-1; 3-2 


2-12 - 


2-18 
2-15 


Appendix A 
4-4 


Support Macros 

Synonym Assigned Unit Numbers 
Synonyms, Task Execution waing 
System Program File 


Task: 

Command, Install 
Execution 

Execution Using: 
Global LUNOs 
Synonyms 

Installation 

Terminal Local File 
Termination Processing 
Termination, Program 
Trace Compilation, Debug 
Traceback Information, 
Run-Time Error 


Unformatted: 

Direct Access: 

READ Calling Sequence 
WRITE Calling Sequence 
READ Calling Sequence 
WRITE Calling Sequence 
UNIQUE Macro 


I/IV 


4-22 
y oy far an 
3.49 
2-14 


2-14; 2-15 
2-17 


2517 
2.47 
2-14 


2-2; 2-14; 2-19 


3-7 
2-19 
2-3 


Appendix A 


4~10 
4-12 
hab 
4-8 
4-23 


Unit Numbers: 

Global LUNO Assigned 
Synonym Assigned 
User-callable Macros 
Using Macros 


Valid 1/0 Operations 


Warnings: 

Compiler 

Execution Errors and 
WRITE: 

Calling Sequence: 
Formatted 

Formatted Direct Access 
Unformatted 

Unformatted Direct Access 
Calling Sequences 


XF78 Command 
XF78F Command 
XLE Command 
XT Command 


$BLANK 
$BLOCK 
SDATA 
$MAIN 


2-17 
2-7; 2-16 
4-19 
4~25 


Appendix B 


Appendix A 
2-19 


Appendix A 
Appendix A 
Appendix A 
Appendix A 


TRIUMPH-ADLER 


TRIUMPH-ADLER Aktiengesellschaft 
fur BUro- und Informationstechnik 
Further StraBe 212 - D 8500 Niirnberg 
Tel. (0911) 322-0 - Telex 6-23 295 


Alle Rechte, sowie Anderungen und Verbesserungen behalten wir uns 
ohne Ankiindigung vor. 


All rights reserved, including the right to make alterations and improve- 
ments without previous notice. 


Nous nous réservons tous les droits ainsi que l'application de toute 
modification ou amélioration, sans avis préliminaire. 


Nos reservamos todos los derechos asi como hacer modificaciones y 
mejoras sin previo aviso. 


Ciriserviamo tutti i diritti, come pure modifiche e correzionisenzapre - 
avviso. 


